(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    108751,       2228]
NotebookOptionsPosition[    106918,       2169]
NotebookOutlinePosition[    107261,       2184]
CellTagsIndexPosition[    107218,       2181]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Reading in the Human Data (with Torso looking at x-position of the Pcom). \
\>", "Section",
 CellChangeTimes->{{3.5128450479344206`*^9, 3.512845052966709*^9}, {
   3.5158619787014647`*^9, 3.515861985560857*^9}, {3.5159722770133495`*^9, 
   3.5159722789304595`*^9}, {3.5159869386879497`*^9, 3.5159869421171455`*^9}, 
   3.51598700443871*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Torso", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_torso.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sslope", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_sslope.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSslope", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_nsslope.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sknee", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_sknee.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NSknee", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_nsknee.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Hippos", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_hippos.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pcom", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{"\"\<fred_data_compos.mat\>\"", ",", "\"\<MAT\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Torso", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Sslope", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "NSslope", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Sknee", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "NSknee", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Hippos", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "Pcom", "]"}]}], "Input",
 CellChangeTimes->{{3.512572220188236*^9, 3.512572253053116*^9}, {
  3.512572497613104*^9, 3.51257259965094*^9}, {3.512572636425043*^9, 
  3.5125726369180717`*^9}, {3.512678975859057*^9, 3.5126789764556646`*^9}, {
  3.515859570235708*^9, 3.5158595963101997`*^9}, {3.5158600828700294`*^9, 
  3.515860083129044*^9}, {3.515940229501178*^9, 3.5159402308852572`*^9}, {
  3.515971338364662*^9, 3.5159713405557876`*^9}, {3.5159715473636165`*^9, 
  3.5159715497667537`*^9}, {3.5159869101293163`*^9, 3.5159869832514987`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.5167204431546926`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "251", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.5167204431566925`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.5167204431586933`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "251", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.5167204431596932`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.516720443161693*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.516720443162693*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{"2", ",", "273", ",", "1"}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.512572641244319*^9, 3.512582638506529*^9, 3.512658738111684*^9, 
   3.5126592668524237`*^9, 3.512677162691683*^9, 3.5126829262206554`*^9, 
   3.512692222524907*^9, 3.512692284614217*^9, 3.512692717365281*^9, 
   3.5127294775658484`*^9, 3.5127338882909703`*^9, 3.512751982753852*^9, 
   3.5128254528274794`*^9, 3.512872540980933*^9, 3.5129085511460276`*^9, 
   3.512925088688921*^9, 3.513076486679431*^9, 3.513345859350628*^9, 
   3.5135159024938607`*^9, 3.515799993356144*^9, 3.515801218656227*^9, 
   3.5158021106752477`*^9, 3.5158595005567226`*^9, 3.515859596894233*^9, 
   3.5158600926165867`*^9, 3.515861578200557*^9, 3.51586167494009*^9, 
   3.515940248140244*^9, 3.5159403026753635`*^9, 3.515940353348262*^9, {
   3.5159713333983784`*^9, 3.515971341072817*^9}, 3.5159715503757887`*^9, 
   3.5159716027417836`*^9, 3.5159727915837817`*^9, 3.515987031169239*^9, 
   3.5159873991092844`*^9, 3.516713000010193*^9, 3.516714076516344*^9, 
   3.516720443164693*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"A", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"i", ",", "j"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5167139959707375`*^9, 3.516714012078659*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"a", "(", 
       RowBox[{"1", ",", "1"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"1", ",", "2"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"1", ",", "3"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"1", ",", "4"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"1", ",", "5"}], ")"}]},
     {
      RowBox[{"a", "(", 
       RowBox[{"2", ",", "1"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"2", ",", "2"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"2", ",", "3"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"2", ",", "4"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"2", ",", "5"}], ")"}]},
     {
      RowBox[{"a", "(", 
       RowBox[{"3", ",", "1"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"3", ",", "2"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"3", ",", "3"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"3", ",", "4"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"3", ",", "5"}], ")"}]},
     {
      RowBox[{"a", "(", 
       RowBox[{"4", ",", "1"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"4", ",", "2"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"4", ",", "3"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"4", ",", "4"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"4", ",", "5"}], ")"}]},
     {
      RowBox[{"a", "(", 
       RowBox[{"5", ",", "1"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"5", ",", "2"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"5", ",", "3"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"5", ",", "4"}], ")"}], 
      RowBox[{"a", "(", 
       RowBox[{"5", ",", "5"}], ")"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{3.5167140124386797`*^9, 3.516714076681354*^9, 
  3.5167204432416973`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Data", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"HipData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Last", "[", "Hippos", "]"}], ",", 
       RowBox[{"First", "[", "Hippos", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSslopeData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "NSslope", "]"}], ",", 
       RowBox[{"Last", "[", "NSslope", "]"}], ",", "2"}], "]"}]}], ";", 
    RowBox[{"SkneeData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "Sknee", "]"}], ",", 
       RowBox[{"Last", "[", "Sknee", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSkneeData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"First", "[", "NSknee", "]"}], ",", 
       RowBox[{"Last", "[", "NSknee", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TorsoData", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Last", "[", "Torso", "]"}], ",", 
       RowBox[{"First", "[", "Torso", "]"}], ",", "2"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Tf", " ", "=", " ", 
     RowBox[{"Max", "[", 
      RowBox[{"Last", "[", "Hippos", "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "Parameters", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HipParameters", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "1"}], "]"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"NSslopeParameters", " ", "=", " ", 
    RowBox[{"A", "\[LeftDoubleBracket]", 
     RowBox[{"2", ",", ";;"}], "\[RightDoubleBracket]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"SkneeParameters", " ", "=", " ", 
    RowBox[{"A", "\[LeftDoubleBracket]", 
     RowBox[{"3", ",", ";;"}], "\[RightDoubleBracket]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"NSkneeParameters", " ", "=", " ", 
    RowBox[{"A", "\[LeftDoubleBracket]", 
     RowBox[{"4", ",", ";;"}], "\[RightDoubleBracket]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TorsoParameters", " ", "=", " ", 
     RowBox[{"A", "\[LeftDoubleBracket]", 
      RowBox[{"5", ",", ";;"}], "\[RightDoubleBracket]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Parameters", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"HipParameters", ",", "NSslopeParameters"}], "]"}], ",", 
           "SkneeParameters"}], "]"}], ",", "NSkneeParameters"}], "]"}], ",", 
       "TorsoParameters"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "Models", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HipModel", " ", "=", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"1", ",", "1"}], "]"}], "*", "t"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSslopeModel", " ", "=", " ", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"2", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"2", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"2", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"2", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"2", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"2", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SkneeModel", " ", "=", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"3", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"3", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"3", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"3", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"3", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"3", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"NSkneeModel", " ", "=", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"4", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"4", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"4", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"4", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"4", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"4", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"TorsoModel", " ", "=", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", "t", "}"}], ",", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"5", ",", "1"}], "]"}], " ", 
            RowBox[{"Cos", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"5", ",", "3"}], "]"}], " ", 
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"5", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
         RowBox[{"a", "[", 
          RowBox[{"5", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TorsoModel", " ", "=", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "t", "}"}], ",", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"5", ",", "1"}], "]"}], " ", 
           RowBox[{"Cos", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"5", ",", "3"}], "]"}], " ", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"5", ",", "2"}], "]"}], " ", "*", "t"}], "]"}]}]}], 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"5", ",", "4"}], "]"}], " ", "*", "t"}], "]"}]], "+", 
        RowBox[{"a", "[", 
         RowBox[{"5", ",", "5"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", "Fits", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"HipFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"HipData", ",", 
      RowBox[{"HipModel", "[", "t", "]"}], ",", "HipParameters", ",", "t"}], 
     "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"NSslopeFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"NSslopeData", ",", 
      RowBox[{"NSslopeModel", "[", "t", "]"}], ",", "NSslopeParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"SkneeFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"SkneeData", ",", 
      RowBox[{"SkneeModel", "[", "t", "]"}], ",", "SkneeParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"NSkneeFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"NSkneeData", ",", 
      RowBox[{"NSkneeModel", "[", "t", "]"}], ",", "NSkneeParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"TorsoFit", " ", "=", " ", 
    RowBox[{"FindFit", "[", 
     RowBox[{"TorsoData", ",", 
      RowBox[{"TorsoModel", "[", "t", "]"}], ",", "TorsoParameters", ",", 
      "t"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "HumanParameters", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HumanParameters", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Parameters", "/.", "HipFit"}], "/.", "NSslopeFit"}], "/.", 
        "SkneeFit"}], "/.", "NSkneeFit"}], "/.", "TorsoFit"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"HumanFit", " ", "=", " ", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"HipFit", ",", "NSslopeFit"}], "]"}], ",", "SkneeFit"}], 
          "]"}], ",", "NSkneeFit"}], "]"}], ",", "TorsoFit"}], "]"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", "Plots", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "HipData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"HipModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "NSslopeData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"NSslopeModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "SkneeData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"SkneeModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "NSkneeData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"NSkneeModel", "[", "t", "]"}], "/.", "HumanFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", "TorsoData", "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"TorsoModel", "[", "t", "]"}], "/.", "TorsoFit"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "Tf"}], "}"}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5126789941819353`*^9, 3.5126790075318193`*^9}, {
   3.51267905004961*^9, 3.5126790700041466`*^9}, {3.5126791468132076`*^9, 
   3.5126791706718807`*^9}, {3.512679291568577*^9, 3.512679486222409*^9}, {
   3.512679517466573*^9, 3.512679664544032*^9}, {3.512679698476902*^9, 
   3.5126797097661114`*^9}, 3.5126797845186925`*^9, {3.5126827119518967`*^9, 
   3.5126827126609373`*^9}, {3.512683020982776*^9, 3.5126831381761436`*^9}, 
   3.512683175569936*^9, 3.5129250245182505`*^9, {3.512925066618658*^9, 
   3.512925083533626*^9}, {3.5129251240129414`*^9, 3.512925142324989*^9}, {
   3.512925200758331*^9, 3.512925214415112*^9}, {3.5129252542353897`*^9, 
   3.5129252585066338`*^9}, {3.512925514140255*^9, 3.512925553720519*^9}, {
   3.515859655541588*^9, 3.515859793325468*^9}, {3.5158601025971575`*^9, 
   3.5158602237340865`*^9}, {3.515860261925271*^9, 3.5158602695787086`*^9}, 
   3.5158603314532475`*^9, {3.5158604439816837`*^9, 3.515860468032059*^9}, {
   3.51586055003675*^9, 3.5158606061069565`*^9}, {3.5158607430347886`*^9, 
   3.5158608047923207`*^9}, {3.515861088250534*^9, 3.5158611290048647`*^9}, {
   3.515861477913821*^9, 3.5158615212513*^9}, {3.5158616552149625`*^9, 
   3.5158616659705777`*^9}, {3.5158617400318136`*^9, 
   3.5158617655192714`*^9}, {3.515986929792441*^9, 3.515986942101145*^9}, {
   3.515986983264499*^9, 3.5159870044177094`*^9}, {3.5167130364572773`*^9, 
   3.51671312356726*^9}, {3.516714027334532*^9, 3.5167140537590427`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "(", 
     RowBox[{"2", ",", "1"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"2", ",", "2"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"2", ",", "3"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"2", ",", "4"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"2", ",", "5"}], ")"}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204432827*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "(", 
     RowBox[{"3", ",", "1"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"3", ",", "2"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"3", ",", "3"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"3", ",", "4"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"3", ",", "5"}], ")"}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204432847004`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "(", 
     RowBox[{"4", ",", "1"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"4", ",", "2"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"4", ",", "3"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"4", ",", "4"}], ")"}], ",", 
    RowBox[{"a", "(", 
     RowBox[{"4", ",", "5"}], ")"}]}], "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204432867002`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "(", 
     RowBox[{"1", ",", "1"}], ")"}], "\[Rule]", "1.19689396035823`"}], "}"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204434367085`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "1"}], ")"}], "\[Rule]", "0.2021466874659094`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "2"}], ")"}], "\[Rule]", "7.840374588741147`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "3"}], ")"}], "\[Rule]", "0.22483245436904045`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.8069757285872388`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "5"}], ")"}], "\[Rule]", "0.18712786224886768`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204436457205`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.08282590437631529`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "2"}], ")"}], "\[Rule]", "13.315981803707265`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "3"}], ")"}], "\[Rule]", "0.20729365656915424`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "4"}], ")"}], "\[Rule]", "4.154819403051306`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "5"}], ")"}], "\[Rule]", "0.2573791697685864`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.516720443677723*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.3808535485970228`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "10.979481912107921`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "3"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.19665480379455522`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.42141500655251124`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "5"}], ")"}], "\[Rule]", "0.6584527300961083`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.516720443706724*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.00930399115389918`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "12.82168487791859`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "3"}], ")"}], "\[Rule]", "0.006115153444975309`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.5923132540804102`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "5"}], ")"}], "\[Rule]", "0.06007064478480575`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204437087245`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxdl2dYFFcfxZcgdhNUTFQiYoktxIixgKKHgD0kYo0tCAZRE8UuoAjYFbsi
gqCioCBYQHqLCyy9bGF7nV3QgKJggMQgmndm7/30ni8887Aze+f+z++cu6M2
7Vy++RMejzfQgsfj/v6/vDeaBd6bHV4xxT7YZL7ciTBhVrCtbDdOn+IUAN6r
GOciw0GQz4eC1z1iTGbuEdyM4XQMvHMBW15PPEk/fwp8L9+gSbfDsW8vp7Pg
Z/zSfHXdRXr/RYS9O/Pt8sTLuH+P02Xwb0Wdr5oegVjz867Ce1HKtKJvInHl
Mqdr7PN/yFgWGEWffx085y3bcg7dQMhhTtEIs1HltFbG0u+LgXfFgotH3G7j
t22cboIJTr957WEc/f7b2BUh6JEjvYOUZE5xsF4XOjji37t0PXfg+aDnh+8d
E3AnjtNdhKX5OizecI+uLx6utsOjXgTcx/VITgnw9LlitEtOpOu9B1eT2PHT
N0k4f47TfVh3RK419Uim609Em0/CQsmMFBw7yikJri0DQodvfEjf5wFEy3TX
fSIfISiQUzLC5F6jXpU/pu+XAu9Pz+z57+MT7PTn9BCiNfHx2TGp9H0fYYp/
8tDH7mnwNesxlL9bDwpvTKPv/wSXbAszcg49xTdmpcL67dX4dNt0uh+pWPTP
tZjZz9Ixwaw0pFrknRiwNoPuTxqsq3J5//EyMcasp0hNClU9SMik+/UUOf4R
n7+engU7s9LRdn6/Q50+i+5fOgKv3p16a1c2hpmVgaEJt5Ya7XPofmbA+sS+
CROyc2BjViZ6B4fYFa3KpfubiUvfjF3nMSAP1p9xyoJ9+8+GhVF5dL+z4Frt
s3z2jHz0NSsbbRV/bUzV5IPYMxtDT29oig0ugJVZOYg7/LSRN6YQ5nEczYFn
s/f4AEEhCCW5EG1O2vJs7x8wj+dwLuKSjwTJBz/D+y5OuQjz6m6akvoM5nEF
5mHal9/1/8KBj787OeXBxV9bHR3Mh3l8e/PhHTj2n1fVfLxt45QP0e/W7cPs
imAep38BXJKFGz/dXYSWV5wKkPBPr/OJlUUwj3dbISLmZfVw61OM5hecCmGd
MmmcwK8YfuZ5/wGngV9YPsooRoOR0x9ojL/glNi7hM7/GS7tDq0atKEEBi2n
Zzg9YvqZ6EclmGz2Ax/vlvj4jbAUkO//nb2e3+/rr1YJqD/46H7gcPBYrID4
rZkP3iGXD3FtAkw0+6UIvRdapq1zL8Wf3PL8ihA3+Oby01dLqX+KwLTb+I18
XorN3HIbi9ARdT3C0rkMY81+KsbDJxcCQs6UwcQt36cYFR6RdkJNGe6a/VWM
4HDlWatp5eR9DMWwKbv5bnNoOUaa/VYCjzmei87XlUPHvR77nh1jtqa0j6ig
eVWCJN8rfTJ3VGD9OlbqEqwJ6PuiqbgCw81+FLBzPx7fNLgSSgWrnwVYk36o
ot/mSkSZ/SmAyN3XOT69EqtXsZIJIHjMX5JsVYUhZr+WgvF5XtW+ugr1ElbL
S+Ft+ej9vHtV1L+lSEpw77TurMIyT1aiUkwJGSc+M7+a+rkMTGt92uXr1RDW
svqxDL1FLbx/n1dTf5fB6WZB2ImZNfD4gVV1GZqW145LOl1D/V6OXR3qletk
NaiqYLWoHGsOLfGZP66W5k85y//6Ffb+tVi4gFVZOaJCRvc8l1dLeajAvjMn
B3T3q0NpCSv3Csxz9RNcXldH86oC263LooOS6uD2PauiCtZPbXs+76qjvFTC
pmfGPeuFQvD/YDW3EvN02dlPIoU03yphnZ9TXsQIMceFVUElhgveMiVDReg2
81SJWb/27v7VVYT8XFbOVShrKvuY4CeieVgFk+eDAJuzIjjNZJVdheDGtqqR
aSL8Y+atCrOEp3xD5CJkZbCaVo2k4bI+t7pEND+rcavn6JfN9mJ8N5XV02ok
79lcq1wsxl9mHqvRtMzGS7hDjLQnrL6tQcH6h8qiy2Kat+y+Oi+YMjBbTHh5
VINpuc/36tVivDbzWoPY2s+/tLGUEF4m1WK54ULfugkSms+1KO6add7bU0J4
SaqF/1+ZQRkBEsLLi1q4lccea7kpQSKHy1fsvtZaTbUQSCjfdXinFj/P+VNC
eIln52Af0pnTv57yXofRPbxHdTnWkzy2F2JX2oPes1fXU/6FaHEb/PZlUD3J
51tC8NbG2cXeqSe8aIWIDRz6rk5QT/w3QIQOj5hx6hf1NB9ECHQUVVb0kRI/
eogQZrez75DxUpoXImxlVrfKF0uJP9k5xe4+6v7JVinNDxG2F3rsLj0pJX6t
EqFGNuznmBQpzRN2roEzvB1rpMS/vcWwcS/8WvxaSvNFjJx7kWe7+smInxeK
0bvg84t2U2Q0b8QIPLpI83SFjPj7pBgO8+s+1B+Q0fwRQ6kbaJV9Q0b8XipG
LP9d/tJCGc0jMS5dGOf5kpFBwPmfnaPT0oGtOks5zScJkkTuW3aNlxMe3Njr
/dolwz3kNK8kOL60LlKyQ074OCJB46Q41egIOe1HCWoa73Y9zpLDgsOFL4HA
yhi0USOnecbOdXNatPNHOZ5x/HyUoOlyeZzzaAXNt3o0ztozW+GuIDzNqcdD
yw2GFb8raN7Vw75kavbfpxTg8HIJrkdTY0VmdbKC9m89uqvbm1W1CsJbXj0q
BH/n3HiroHlYj6TRnduO2yiRx/H3bz2kBxa9nztTSfNRipxw+5Ol65WERycp
MgYojqjClDQvpZA+7vjXMVEJDs+ZAVKEuX1b2VqppPkphW/BsVd7WpSE10wp
zoX23cQboKJ5KkVTXIO1fooKmRy/HVL0HnTwN7eVKpqvMvTo77XsiwMqwvN3
MkQNOTrmSZSK5q0MY/3PRs8qVIHDe+oeGZhNyk3xjIrmL+ubt6/43lZqwnuq
DE5tLrVHxqtpHrNz37Z/bucPaqRy/LfKYG8x/+v2HWqaz3Ks9P3zWnWEmuTB
ZDlyeJ/8eCpbjTpzXssR2FE3rEWlJrywPojdcdF23Hs1zW/2/sZlm/h2GpIX
KXLMsxpUvHiBhua5HMwwjzThFg3h5aUc2w+e/LDqlIbmuwIOudtu30nREF4m
KtCyfOVnf9ZoUGnOe3bOT081dL3REF62KsC3zOTnD9TS/Feg/5RhMydN16KJ
4+W+Akovd2Xoai3tAwUeLvy5uzNAS3h5rkDS8Yx0QbSW9gM752qDnzxfS3gZ
q0TE5JTfrui0tC+UmLc4duj2/7SEl1+VOG4rWxA1Skf7Q4mkiQHd9910JK/u
KLFh//lfvH7V0T5RYmvX8a5eJ3SEF0aJih2PLKcn6Gi/qODQFBGnKtURXkaq
0OYvOjCpWUf7RgVl37EDlX30hBcvFaz35R5a6qCn/aNCUv7kAvFPesJLLHt/
fsKMQzv1tI9UEFROXBZzUU940ajQ4Se6/PGJnp73VPBo65ViI9ETXoar2fPY
nJ96dOppX6nBP5w9b99gA+FlrRrdwc+GwtlA+0sNUcClFOVaA+Hluho22zPH
CA8aaJ+p4RSeNa5XjIGch+VqxBnntH9faKDnSTWkrbLxN9UGwssQDZgw06jQ
9wbadxrs8399+NhnDOFlpQZzNUd00SMZ2n8arElyb+s5lSG8XNHgeOJ4L5kb
Q/tQg7/vR+XNXs0QXsQaRFpGv23wY2g/stdj3o8KDmQIL9ZamPL2Www4zdC+
1GLXDdGoadEM4WWpFncjNs9UpjC0P7VwvX1iY59ChvByXoutE+xKnYQM7VMt
+I4R9geNDOGlRovJlyK+D29naL9qwWtuXBDQ00h46afDx7MDZ31ma6R9q4Pg
TOSasd8Y0Y/DZYkOF7J8YxpcjbR/dXBZtX/u9RVGwstpHYb/dy0kzM9I+1iH
GYc3fBIfZCS8lOswa8X7ZNU5I+1nHSYtTEz9eNsIDpcFPfXwKvuln1O6kfDy
lR5uiVu/mlJuRC8Ol/l69D9xbHezykj7W491l/YWfXxjJLwc0+OotNfE+xYm
2ud6SIW+V4IGmXCcw6VYD0/X1mCPCSba73rkPH8Y7jLbRHixMGCC4ru2OUtN
tO8NcJiwJGHwJhPpF1cD3o0R+1wONNH+N+BWbYjbL+Em0i8h7P/DHQVzb5no
ecCAn1qP2F9/aiK8sL4r3mW1/k2piZ4PDLD77daHOwoT6ZduA0I6Py34qcVE
zwusT7IsHD9YNJD7RzAQPCpvGTmogZ4fGPb3Yrdl+fgG8jwXBlGeL0ctdm6g
5wkGEr9kF+GPDYTHDQxejL2XPGRjAz1fMNh0Nwq2BxoIn4cYBD8UXnU82UDP
GwyqwlP8mmMaCK83GJybbnsg7kkDPX8wcDhdai3kN+B/Cd+NAw==
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVyXk41HkAx3Faq1Ex61iLCj1RDz0q1bhaPhEqx7iSYxO1jma1HZqkWXrG
ZrPq0VaOVKIcFSlTzoxbjgyDGMeM4zt+u8VWRtMtx7Z/vJ/XH+9VB454hy1S
UFBw/9r/DtXObjjd62yX2a+ZscTb1Y7DO1q3c9oIZT7ntR/STRDvydZZPr0F
F1ZHR3Ho1kgw/OCoNO0IzvlIw2D6LpylWUo+yXbjKMJPetEDkBjrt+atLBSR
V6kcFzoLieUvXKdlbBx0zrHaQT+FxN7i0SlZAl5kxp9xoidBo0ZeHtiTBt9h
FGuuvIbfg9dz9Rg3kSKjnVAJz8XIZI7Gq/B8zH477ce7UYBa6dlXx1XuAZsX
9hms5yHGqiBXYswD3/An43afEvSWt7D9Fx7BvsTl/kR1OcjnpthEQRlcPD8P
6GlXIY3GcEqNqERy4Wwaj1EDVWGQ+exWPqb6ni4JcqvH+uCZEXtSgy0lSNWU
NoAbyCeZW+tRpf29rPfXJrSH+IY65zag2a3UlLmiGZNuJm2j8kYckc5tmLnf
ApbWUE3evifI2qmuHbK/DQ61n4RNTc1QYyR0di1rh8zdu77nu1as4N5iHrsu
wFxl4nZVThuKb/zJ63DtBFH5eNtS8BREV284YEwIIwuHzL+sBHArtWF7unSj
wXGuaFt2B3bo61CfDHuwyVp+g7zuxOWKdgubyR4oqTQZPvDvgoHNOMe/8Rn2
jD23L/PtxuxLYS49uRd71hkp1n/pxqmQyDKBTx8Wh3kkSYt7YFN7qCJ0nQg5
l67Ez/g9wy7X7Vnp70SYutfpYKrWi+sNp0/kC/sRXsG/pNzQi+QZFuNx3gDa
ylo8xRF9EB4wFYcdGoTkVt3gkxUieJd6HJE5DmGQK+q+3SyCMcNlUp0uhqJX
7h5GZD+uxLxztRaJIVELzhfrD8A9/5ts2yIJsussQ0+2DMBbcaJfzB6G1r75
l6axg7jmbL6wmzmC4zIpJTIewka+x7KDuqOYPxbHMusYQoR85SIuGYXNuHLl
da4YUg2vCXblGEKc7kcrmkjg+7AoQNGewDLdfj5uTAKx+88VFg8IbAaTNe9c
HgZPcCzpsK4Ua1U/ZrRaj8BM+m9nVJwUzRuYL+anRuAWmX7un0kp3J0a880y
RqGRXPTYyGMci9ym3tDsxmByUS8o/NE4IrbRFn95MwaymB+jrU9BkmLgLHcj
wA8tyim/U6h8dW0ti0lQZ6Re6ZNAId1JW4V4fP2b9rK0zlLw/Liso9ObwNZd
LkhLovAkcMarwJ/A+oz+pYyLFIpWiYJCQgk2yaKXZ2VRiCs+d0L4G4FR69qN
BVUUAmnKfk5xBLl9UVJWNQWr/fFW1acJVo/XXDatpSDXiPlSEE+was7n/b0G
CuHRYfF/JBKs3MytetBGgWm7LfnHFALt7EHH0n4K69L5h0tSCdKKVn9gD1Kg
ySw8TdMJtKoO32GIKTTeNNPUuUqgIVJaUjFCwUJp+dW3WQRqS827Hv9NQTMo
nfPLTYILOrFcznMK02Xqe6W3CFTXtJpvnaBQGEEz6MojWGoflFr9kkJi/RkF
59sE55h3neJeUwjVXZBW3yFQ2fv2g62MgkMUp2lzAUESy+7u/DQFA8H7vMJC
AtrJpIA6OYX/AP7+bI8=
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.516720443996741*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3lcTekDxrMkk20M/X6TprI0hMg6YuhBP7ITxohkSSFZRkwLaUgxUsig
RUQihUqlkjrd1tt2O7e6t7vfM6bV0lBIjPzOOe+Z558+59O557znfZ/v87zv
qB0H1rr3NjAwGNrLwID7+6+aA2eYtO5TYttWXsg2GxMwMEaJHfzlAVhv/quw
t1iJM6c5+SDSvcfUtPvf+wPh6H4yIWecCrExnILg++OC2HFrVML9pxHapjbp
OKrCYW9OofBalNry4I5K+P15nNszY35tpQp3EjhdxJLA5my3bhWu8c+7hMfj
o6sHWqgRcZHTZViHWB9c7agWnn8V4sjwx0FeahwP4BSFSOvsJtMrauF9MRiX
u37upwI1PPdwisWQz6n7gpvUwvtvINvb5vnVwRokJ3GKw0/RLdoYO40wnpuI
6m/Tz2aHBjfjON2CvOrV9fuhGmF88Zjy65zxRpkaXL3C6Tbyx/jPGNKoEcab
gK6da8VrTLQIO8fpDuJCYmvaoBXGfxe574xjgr20CDrJKRG7B42dHR6lFb7n
Ht6G9fO0L9PCz5dTElwN4pd1vtYK35cMi9GuP1430+HAfk73cWNrhLjfUp3w
vQ9gv8H9xCQfHXbyeoiG5y8G3k/QCd+fgoCGpzfMJTpM4pWKD/36nBjQoRPm
IxVBPx1IkY7Sw5pXGiRBpvazlumF+UnDpm0XZc6H9RjD6xEyYqf0HL6mF+br
EfYlH+8clquHBa90vPp2rLGHRi/MXzocQgJ9M//Rw5RXBgZWphfYDWOE+cyA
x96me0csGAznlYmWYOM23ymMML+Z+D5uwvmFCxh8PYTTY+R9VG7cvYIR5vsx
cjqG3TRyZmDMKws2tdPKb+xiQOyZhZUOW2eaeTMw5JWNwVUVpot/Y8Avx8ls
2Pqe6O78nQGhJQdv1+8Xu0cw4JcnIAfTkybl3r/O4NNHTjkI6T1R7pzAgF8u
3ydw+m93b9kDBu/fcXqCCePsfoxKZcAvn3cuZDivy37M4M1rTrnQDBBNrGWv
+eXc/xRHRo5evvkJg5cvOD2FOvnh0cG5DPjl3ZMH5+VXFjSy97c1c8pDRNLz
F01ZDDz49c7HvI55E1zSGPz1J6d8rL2XaXaGvSbrT0Hdx+xLFzs+vYYThcZX
b+JjEhlM5v1QgKExPc9S7grv31uAkWkpFq3RjOCPAnxu33hFfpkhfmsrgMq3
LWrqWQbjeb+IYNRjMf8qO58t3PA8RDiWGD6/6zgj+EcE/+WiniAfBu7ccBtF
+GdoxuZNXgyseD8V4tLuC4tC3Bg844a/vRArRsZ1hW9mcIv3VyGS6lzvWGwQ
vkdfiMViu9PfrmRgyfutCJZ7JuVFLGSg5T7PpQivhsz/4DqHEfKqCD9/OiEO
tWWweRMrVRHeW6/O/GTNYATvx2Isv5tF32X9p2hg9XMx7nc0B/1lwiCS92cx
0iZfcKjpz2DDT6xkxZj9OcRhmAEDE96vJSjaYH73Q4sedbWs1pagszBkeniN
XvBvCV5c+31TcZoeTmtY0SXwez54cnaUXvBzKVo9J01946tHTTWrlaXokl3s
c2ajXvB3KUTSrF1L7PRYsZxVZSma0goHun6nF/xeBlOTg7k+b3WoELNaUoYK
ZuK5LbROyJ8yrBW3jym4roPjYlalZegpG/028rBO4EGM6F75Xz1eqUNJESsH
MeZ3XE88YK4T8kqMcHNz3+QXWixcwEokxsbKPNd2kVbgpRyPn44d8p9wLQry
WdmXY3veyTnbt/ybb+VojX6cvMZKi3lzWT0tR6x90CmDdg3+4Xkqh51/xdxV
eRrk5rCaXQGDqysXdgVrhDyswM3T7hsM12lgN4tVVgWU7kM//zxAgy6eN/b/
e86rUK3G4wxWMyphumHa5Y9h//ZDJaipHn/3XaXG9GmsHlXiXdV+/3smanTw
PFaitnPBcCOJCmkprGyr0Nfv45x1YSohb6ugDnARByxXEV4eVGFe/bscY0MV
XvG8VmG3eOfWGJGS8DKhGs0pt9yt/JVCPldjis8lxag5SsJLYjVKnn3V/r5L
QXhprsal5b/4dKUocJfD5XsJet5dHPB6r0LgW4JyAzd15ygF4SVegsFvX738
pGwQeJcg0Ml2uOP5BpLHI2vgH/2LSfP8BoH/GhS4vNjl9l5O8vl6DfyuebsZ
JcoJL5oaGIUeL3u6Xk78N4hGzMK098195UI+0Cj6ci/d46GM+HEFjURjexPH
FTIhL2h4tVZdquqpJ/4MpeF9xC5xY0K9kB80HKaUT4lEPfFrBQ37+1FfzF/W
CXlC47Nz7j7TK3XEv/2l2PpPWI6FfZ2QL1JE/T75YIWulvjZUQqVIso95Uyt
kDdSDH54TL39h1ri7xApLB+Gz9mslAr5I8Wwjk8Z785Iid9LpPhoEfysZIZU
yCMpNJ6jV/4oo1HM+b9PLZwc4kSOJ2khn2qRcNK79rYNTXhYyL5HMnajV1GN
kFe1SK7Y9npYnxrCx4la5Mf29P+NXTfSj7WQKBcZGOZXoxeHS0Et0hdpnHb1
qhbyrBbMyqlf+i2tAsXx01OLmM0fIiZcrRTyrQ5FJQjaKqsgPM2rwzmJcvYd
8woh7+rwptNp6HLHcnB4zT1Wh1jJjqSYQLHQv3VoSQ0blZRdRnh7Ugf/4Ld5
F9+UCnlYB1P3GUvDJpbiCcdfdx2WLbh9I29niZCP9Qj0mbzNJ76Y8GhXj9QK
75YBLUVCXtbDxsW9PviHInB4zvKpR6SraqgosFDIz3qccr681KdKRHjNrIfZ
kriMMlORkKf1uFtrFSD/pQCZHL9v61HY+9TtPdcpIV9luLfKpWnbpnzC83QZ
frU8esOn7amQtzLkhXfnSM7mgsN72iEZfmuZqf1j1hMhf2Xw/O6nSjsqm/Ce
KkP0t994inZlCXksw7udbdsi2X1FKsf/3zKM+DVnu39shpDPcgT5Get/W5ZO
8mCyHBGX9T7ecnafxOe1HK7fjPXu3plKeNknh6WmMc286IGQ33K02x80tylL
InmRLMdoTfZcquuukOdyXEs6v6POMoHw8px9vsRmS+Lnm0K+N2BF+qwr4c2x
hJfxDRid/XALfTwS5XzeN2D4Yg8H6mAE4WV3A+JjPpSv+PuMkP8N8JJK+v4Z
7odWjpc7DXCuc+j7x5x1Qh80YNm2rO51jYconpemBli1bnw+3TaYIv2gQEe0
4aUzgy9QPC9WChwwM9XUdF2mSF8oMGZL4rkljTEUz4ubAoYP/aIKJXEU6Q8F
TE7MKDnkHk/xeXVTgbFem/cHO92hSJ8okHN28frXkkSK54VR4MWgEd+t9kum
SL8o0W+Bv1O56UOK58VSiehXTa88bFMp0jdKRI67MN1tdhrF8+KqxODwmxc8
dj+iSP8oEZYc0HedTzrF83JNiVMLO9/lHs2gSB8pMTPlosggKZPieVGzOZ4+
YZDfN1kU2e8pMe1UuS19LJvieRmhgnHxlH6TpDkU6SsVRj6blmozM5fieXFW
oea08exZfzylSH+p0H+JQbFZ33yK5+WqCmO6UnN++Z2iSJ+pcFB0rrHieAHF
74flKvzw0vxw7jgRRfaTKkRmnzBz+ktE8bywvbV0uKLF7VIhRfpOjaJdSfnj
bIoonpf1aoQVe16RyYso0n9q7P22KWjQoWKK5yVCjawNyTcfWJRQpA/VsBkb
L7etKqF4XqRqZKgSTnkcKqVIP6rRX/HD/3wGllE8L19rsMpHI5Y9KqNIX2ow
1XBe3ERXMcXzsloDr8oJ0468FlOkPzXw3HBvzYiAcornJUyD7NlGl5INKyjS
pxpY++113B9aQfG8VGnwtcjymPmgSor0qwaS40966LOVFM/LAC0iR/QPr+qq
pEjfajF33WpLj8NV1AAOl2VaHGuIR/TzKor0rxa7Am67WO+spnhezmjRGW21
b6KkmiJ9rEWfW4kVnbMlFM8Lew6bnznA6uMtCUX6WQufT8U513rXUBwui/vp
YHd88stebjWEl+91SAi3tap/VEMZcbgs0iF6z4WVob1pivS3DnGb53WkjKYJ
L0E6LFS0mE5ypAkv8TrsOHTd2eUATZ3icCnU4WrRy8QLwTTh5U8dpJHespAb
NOGllx5il1XXz2bShJeReiQ0dUxZKaEpvl/m61HevfXgf5U04WWrHj6D8oZL
mmiK75fjetg3ivSH22mK7Af0MBqT4NCrkya85OnhOd55QftbmvDCnuPacmfa
GRhIKb5f2HOc2TcmSYO7aIrsFxiMzp3x1r9F+L05g6G2BcxXrTRZ30nsueho
QtlrufC8uQyOVUcOOiKlyXqz57hQu/Y+E/JowqMLg4OLWj9ueEhTZH/BwK5h
0fviczTh8yh7jlhXVpodSBM/hDJwzq9qyt9CE17Zc8uI7BOGz0ATfyQx6N43
rm3IeJr6P6pwuUw=
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VG8bB3BKlkKSwktSyBKlKLJ025uQrUglSZZQskQSshNRlDW7RBGy
bzPPjK2yzqSQZeYkijZSIvXL+/hrrs81c855zjnP3Pf33uF4xcp5DRsbmxU7
G9vq51vK370hA0aHJ3dxvWfNDENgpRcizUnDdo4N9TPfhiHM4qqI2JwqhNxN
ipn/MQyRkr8MOOYMwOxRlxj7v2GI5lYbXZo9ARKCl9gEBd9CTNDJXT9mnaBA
JvfgGg3suo8mc7NXgU9mrZbILeyBCua32UiIS4nctCw1AoLk+brTjBSYv9uo
H3NhFMLP7Qn934E8WJBxy6FdG4PxmQLBLy5FkKPecyr7yjhQ3kV/8eUphdTx
avYbDkwIUH9cOCpTCe4q72SWpFngU/41VXdfJYj6CH/mlWOBh/T+uGKtStD9
pXp7+24W2As0e/ker4Rb0xwOh/exwGC6R3tDWCXo0CXAUZsFG9PnhjTGKgG0
FZ31rFnwaFGNNzP5GTycgDKHCBYM1HVetV2pAlV0o3NpmAVE6QflW+urYdfS
xoqroyz4ksf5tXFLNfDLH734bZwFHPFGzmKK1fB4nGU8OsEC1XOd1kzbamgx
2tGe+YUFqVydB52qqiFZtUuqcoUFp207lq4414BjnG6HiCABLsemavK8auCV
zKKNymYCfPTWeTNu1ICIKl+XqRAB8YqGM/uTa+CNRuTxoK0EtLB1vF2g4N8n
PP/a+z8Ctj1ub7ohUgumC8c3aUoRQPxuC4rproWJ3RYlmioEiFGmKhbf1EJ6
jfKNHaoE2IRzvXclasFMn9+c8wAB3etNjpIWasFmVOJ3z0EC6sRebeHZXgeO
a5StzDQISNAmyuN86sA+X3lBUpcAjbC/RIJoPezhjvnCYUaAn6GE0D+perBp
i0ruwq7k0Tniuacebl8oUL1jTsCu5IinZvr1EETLvbTFkoBNhesDN16uB23z
jOItJwiYbhfZnESth8YZY/mpUwSkcB8wvO/aABzQZ4+cCHhSOjU55dMAnEFV
Ej7OBFDNUiPVQhrgqUx9sZQLAV/uL7aN3G8AxXc+QhGuBBjsaNLb0doAu27+
OK7iTsCPQ6BTLt4I10tjDE9dIYB7fJa1ItsIUU+1IpawJULzblqqNIKVu0tM
qhcBxp3s6OfRRrg06z3R501AgVW7tuY1fPzQFFP5KgGWHkc1XzAaId48s7cx
AL8//uUR0fFGWMr3OGd4nYCgZ08CPaYbQUNEvrYfu2RxQxP/SiM83tldSgQS
wBbZp26t2ASkMy60H0EEVGQdPzgR3QRtc/qXmKEEtAPHoEpyE7RYVCnYhBEw
MlHjF5XdBNX9xU96sDnlt9bK1TRBAOPet9pwAuxrh1WuvGuCUlu38OuRBPD1
nd33V7MZNrWZNrXHEGClI0BKMGoGO+2J6R2xBKRWtdpLWDbD7YSfK8HYkmmy
t3VcmkHTXOLj/lsE7Hf4/iHybjPs6PRJvRNHgP+rwv+2PGgG8ayRdZPYzQY2
QsVFzdBqy7JTi8fPW75Z92VTMxTmWNJGsG3mI7P4ppqBYyfTQSiBgEwnteqc
2WYY3rtvvQM2a3Dm5d7lZphUIGU+wb7YbLZoubEFfoac9NRKJCAwUsQq9VAL
+I+JvLe6Q0DO1jKu7YktMBhyado4iYCJWHuJyvQWmBClfo/Elv0jcEC3sAVI
dRoEGbuS5ed4oaEFRpJ1LykmE9BaAuTiiRawcJ/U/ovNKTY/oP61Bcrfki8r
3SPAJOHhp5eLLeDqvhx2Fvu1N4/IF14ySItpn2zC/qAx4KOsRgb7HRZVLvcJ
UHgadYumSwZfrcdr7mBf2a6eZ2VKhtjqkoN12Etrs3uvnidDl9fho+wpBGj5
m0+uu0SGv6OPZGWww6bZ/6T6k0Hj66mZI9jre13kGuPJkBxtuDUO2wxEwTiV
DCUilmGPse8967YezSPDc6dj/c+xxVOVI/6rJcPtQLSZPZUAB+73GYlUMpSr
8KwXxy4KTKnc3k2GkajPEwew95xbHtclyBAoIKXlgh1lEUvO/kQGztvkY0HY
Y7pbs3//JMNW7xbTJGxVlYdB1itkUH664VARdrz0frtnPBQIJKUJNmBPbKFq
8glRoM3Z5O1LbA0uMzE3CQqE6gkljGBPz7iNSKpQIL02pXkJG0YXG4O0KWBl
KnuQMw3vv56ojOEjFDAqvJktiP2NvPm6qhUFfILjv2/DNqzIt71rR4H7DWr7
5bCz8vaqf3GhwJ5j3uf2Yf9MIguTvClw20zm+iFskwiTxcIbFKB80rmpg11w
9e3gShQFnrg/8zbC/u3sWnfmLgU49jtZmGBbnFxIqc+kgC0yEjPHLiFF+G0u
osCGMqNXltgrhzZZX6mggH2Zpd9xbJvduardjRTwv2PNcQK7XFxJSLadAidB
5+bq9+v4m3+E91FgnroytXq83QppgDlMgZ2q4eqr56+ZG6zSeE+BqoFa/9Xr
b5hwSk79is+/EJu3uj7HgXnv+UUKDPN8ql1df1N7qKXZGgR9Wc/rVu9vUx3/
vie8CD6dEChcvf+LxVkCnMIIhn9UBa4+H2q6wtz5HQhINjnaEtjCcQ395N0I
5n1pn1efr+cNowrRgwjSzm2IWn3+nZdeJ/rpINhwxIPnN34/2+wdPRnGCPb7
0gM+YV81nzumZI2Ak6QwsPo+e3RClG6dQ5BlcFGkC1tqPy/flBsC6bWBpNX9
8EpIricrBIFn3dDF1f0jz1lXuhSLQN917anV/RW6qB9/4h6CPVatKqv7b+/I
OWPeEgRW15tKDmJHd3+Vv1iFgMvktd42bGbLDZ72FgQjYXrP12Dfzk17cYOB
wNSPmdiF9//7uzIlQ6MIDPK/MsqwNcKrY1Q+INiySWglAXvGqd/o8zKC5U53
4WPYUikRjkqCVDhLzz9Mwf/PvgRjqzPCVKjJ66GnYQdGb9K7JU6FnrsZpl7Y
r67l7pjaRQVeo3dsEtihp5uJLE0qkLQKTl/C9SCj9WW0pi4Vtsa+kD+EXaUw
rDhiRAWF6PpKDuzJ5Z8BwlZU6BwqnUrD9ebogz2bki9S4QNT7FM5rk+Oa7Xr
lT2pcIJa4+eNHeRhcrbflwqWz5Ib9mOXa158zHuTCtc6mRee3SVAcCxfNyYF
n1+LyzwX18PdBpUfZR5QwYJP+N5JbIMySkJ7HhWejnxP4Me+FjT6lr2MCnPq
fcUBuJ6OiW/xCWqlwvrN99y1cb0tOhtb4D1LhecLxyVv4XpO6UglCSxguyZ1
KWIPKxV9K1+mQkBYq0I/7gfr/9E0vqyjwWvxfl4BbM+cP69cxGlgH2pkE477
izrLc63dURqUBzN+yuH+Y3kk+PGyGQ1GXk0v1UcQ4F4Rb55xggbSO/WrDLGz
bpY8GDxHg4FXGQZncf9il5xQsfSnwek/zz8E4f7X5WDtZFRIAx1TD9EQ3B8D
Kyc7IktoIC9b6MaOvZvtqmzbUxqkF3lmRNxY3R/Jn6CBBhtGStIicX81Y/Z7
HeqlwZ7m9fzXcX9+dcY4WHGRBsJ1n8Z34/49YgOpgiatkPzb7XMDzgdxj/oW
LSxa4XBZr7QItuavs6fuWLcCc6+Otr8bXm9KkDivQyuUvSNt2HsR99vXjQXr
/FrhH0eV2D2cRyYsVSuWclpB0C+RV8YB7z9T+RfM+Vao/vhD3gvnGy5eNiJh
qRUa+AufZh4nQKZ7cFHrH77efOt4mxUB549Gyj7gaYOcNWf1BXE+emvIij4p
2QbZC5rSuccIeHk4xZB+rA0ySzThuhEBj5XZ22glbcDrG7+4R42A57NDI17l
beBJsRTYi/PbVHn5/PaaNrCVFx1Uwvluh5LdzhDUBslOLy7K4jyYIV8fpjHY
BqSBoNL1ewm4tfOyTvXadohtcn+atIsAN6G35If27fChyHUqH+dPgXvbNA45
tYPNr5u7gnE+bdjkWNfr1g62cht3nsT5lXPj5/JfV9uh7z6NxCVAwEOe/3JJ
8e1QQ3RZ227AefSfZPiX+nY4UZt8ncyO6+nMRSPVTR1wosowWQ7naT3KUl9b
WwcMJafIzIazIEyawrn0ogNmGnN0DoaygBoXcVixrwMaK7MUbwSzQPskf/n9
4Q6ce9YG/LvGAvU5qQTnrx3wnnqB+HSJBUo7zU24hDshdtlO+IwNC0Sii54b
u3fCaa8/8pmyLJg9ZkVlCDyH7lvcHFltTPivIUafL/AF+NXu2ujYOw4Ez+Ij
te6XMGPdGKjSPgbSB/Wy7qh3Aykp6FnjzVGgGfxXppPbAywFuw9m20Zg/6H5
bOJrL9xpXjb1qhkGDp42yXLbfkgNHdpyhX8IbFgfdGut6WBzuWLyjdsb3E+k
2al/6BAVvqfsc90AcDmb33pXwYCBjF7n0hcMKEhKC1s++Qpsatdp+7/qh2+l
vXoK/ANQy2ava13QDS71zUmctAFwFLKmkj2ew4vaTosR19dQFxt3YN/lNhjN
R8Pt4m+g67N4UoUY7iuhb+iPOt5A+E3pkLwvtcBuWWhzwGMQ0uNvR0qxSmGU
/1zRiMQQCIR1/lr0T4FcpOZ0rXMI6OnPnNsHI5CQ/b/PCkHD8LNBhnE0sgj5
zr57/0bmLUx/+OkRrVaF/nkHuyn1vMX1wuBygHoj0pjgbHgQOgK2BbVcU6pU
5GD41J9dfhQG716UpNi2IbVU3X/BrFHoDFOK2hTUiTSGEzYXJ4/BNJ+sg4jh
SyTLt5j+/NA4pBqX/mq4342q3JT9s7TGIbo9LfN/Od1Iq9PtuDeMg21A8EP/
4m5kcXOMT8xwHNZ84pvc1tSNAr/Twj0txuF/9058lGN1o743ty9tcR2HoOyZ
kr1yPcg/Z6fOhfvjcDpcK26htgd17DX7+O/bONgFah8RoPYicTZSQeH3cfjA
Efwr4Hkv8qHrniX9HAe5ZDmfsb5eJOF9YCDp9zjQhaHr3ngv8q8SR9IcTKBq
To63Lfci2QOfU41FmdCQfjVdTrUP3dKINUrVZ0Kc5r7cvwV96Jhha5FSOhPk
ZPOqkr360cWFecGOTCZErwQ4xPj3o/AiqVC7bCYIFHf3+Af1o4Z1UafjC5hg
9H3zuGFsP5LuPLJxpowJ6QSN9jC3Hy0b9QY8pDFhjXP5S6feflRCGjYR+8wE
4ZzJcl9BOmpb4m6s+sqESGKaU3QLHTFLDu0ynmOCurBfRbMwHW3mecB2fYEJ
5sv2c0vidBTy8mzt4AoTPgSJyhyXpSNr4/cSyUIs+MqzshilSUdrTL995z7M
glBFFZg4T0evq/WahnVY8PC+yqijEx0ViaWFl+izYJtdpzbhQkekz7CZdBTP
yVExJxgedJQYl6Qac4IFdw91N972oyOxl6rX1nmw4Fff1lnXWDpSNbrxlz2d
BV5pWn5lpXTEWd7fzshkQYDD6GT7Uzoa2iKdkJ/NgqGisfUjFXQUONWzTbeQ
BVa3RQKWq+mIFikBoeUs4CdxdW1uoSOzNlrYv3YWSOwLelfcTUeuOtxcf76z
YA7V51pN0xGH+LanmT9ZwIxYMJqcoaOCxX3HNRZZQLJN4vD9TEdj5Wdyr//F
c3vqNVrMNzoqSRwSC1pLwPi4uHriTzra9p9CzTIfAUPvn3TxszHQF/cDMcYb
CdBJan3qzc5ATcNwOhPXRdXEJ/mMNQxkW3OCTQPX0ZSvSU2x6xgo2SPE9LoI
Ab2eZ4oH1jMQ1whjcnEnAdaWVTvHhBho8MhY/RFpAr6/+/hp41YGelj7IS5N
Bs8BVSUUHWEG0kv6o6wmh6/3KjImQ5SBgkgywf5KBDj5t6fISjDQ97qALQu4
T+x9fNi+dhcDUaUjpg0O4T5+z7WxUZaBEpMTmu/jOd9JXVKsWY6BFD0Lzqtq
E5D/Y8P3GgUGcpHpeeqrR8BX3UvMyD0MNHpvu9G8KQH/q9cOTjnAQA1fMmXd
8Nyv05H2KPwgA6UabuUh8NyvcPLAlktqDGSxyNvTi/tc2WQxVeUQA7WfXrZ8
bItzxrEQw1QtBsqv9lORPE3AnzmORGdtBgrh/S6UdoaAlroakX2HGUid8nEo
0h7PYYobfrQAA5XteHPWwYmA4o38z4r1GOhWoAUM4T6szzzBdkofr3egW9LM
FeeCF88TOQ0YSDKq9b0m7uv5ii2uNoYMdH+6wk0Yz/kB9dSVF0cYyFt3t0ki
nvMly40O25EYyCzzkeI6XwJ+aYs2fsbmNs2enfcjwFhV23HlKAMFV8T59eHc
ca7rZcBvEwY6zc150jAYv//M5Tuepni958PUW0LwevfWESzsecGAP4/x3D6a
4qdUf4yB+j1+jEniHHQjtk9umxm+n3ZPShrOTaQIO7ub2C7+zmFROFdlLHW6
q5szkH4/4fgXz+lSVn8N7mBLytkZ+OKcxucjYjOBPfLWius8znX7PjWLBVsw
UP3+vukhnPvU3uX2t2Pfjz/aZYZz5KkxqUZuS3x/2joJWjinchzp2h2FvTu1
2bMa59w7wsdqyNjcswctFHDuPlOu7D2PPXWkal8+nhuU3XY5SlkxUGue0maR
DAIiJIhoC+zc3yU/EzNxjt0mwLqOHWQlPbguiwChPW7uudinSnPrg7IJ2JmU
I0fDPsghlvEjhwBfNidRFvbms6mB7nkEvCm/rPUbe652k927fAL2k7ySNh5n
oF7+BG3bQgKyv0uK7MR+4sq9vf8hAR5HD9CVsWOoEWxGj/Cc7XqhURPbSXTl
XUsxAVvHzg/oYev5BLapPMZzTdXHbUbY27sXHj55guc0z7J0Q+z/A2TAx3M=

       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.5167204440437436`*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw11wlYjWkbB/CWr+z7NhMaRqphslUk8U9J9BEaZf2YqOgbmTAoSyVNZJBl
qKyVQpmoCCW06LScpbMvdU7noKFEQhnUp+90up/7us7V9V7X6X3v332e577f
Z+yGX30CTYyMjNr1n66/LFx69j73MrscgwzhD1eviN+8h1ZgsOF6Gw4Nm7mm
JLsC55K6IhwXX/fH5hOV9P0D0PgE5p0dWwU/3674HVbJToUVr6ro+3FIOOnw
zjKCizpNVxzD2tJnNtF7efT/J3FhUGzsvvc82BviNEZtFjXYFfBhuJ3vGTg8
8NL8NVaAsN1dkYCyd/YbAhQCun8SNnQeSXL8sxqFD7riPPIqOi5a9hfS8y6i
Nv2bVS3hQnRrk/HvyjbbwDohPT8FHTbLZuxoF+J7Q6QiK3WW30l/EeVzBeO9
XplxLoowzxBpqK8YePtUh4jyS0fmOItIx2liBBniKp6Vnt4a+JuY8r2GL+nO
P+3LFyPucFdcxxXLq5JFbWLKPwNLkeXj6SrBjUxDINnpgjc3RkKeGzg+55ou
TiABn9cVfyFwSOif6plS8mVhQGFZz2fzpXjb3BU3sTv+iE/WESl5s2F+LzYs
gCuF4fGHs2FTu2neb6Yy8ufAbZJKs8xFhu5y5uB1Z7vVx3QZ1SMXT7n1oer3
MnSnlwu/pr3LvHrLqT63Ma3jQsMUyGFI98Ft1Kettbh7Vk71uoNXo663O9yU
w5A+7w7sxnlGuUrkVL88/G/I81Ee7XIYOJo8HLdfej5tnoLqeRdWyvPWU39W
wMBrvovoqc13EuIVMJR39z1EjRi5c0epgrz3UbxasCLLQkne+xgRX+xX6agk
bz6mbfYZ1jtQSd58bOx7cNulWCV5C+B/wzlWkK8kbwGmP42OsRYryfsAOe9H
H5zToSTvA3xeIFG96KkibyE0ieu+7TNBRd5CNFlPG7ceKvI+xODXEXuXr1OR
9yE+X/4QGJihIu8jRHxsinTcryLvI+wLXW9ilaQi72NMKe4Y4pigQqchHsPV
NDxmzS0VPAzPL8LHm7MSm3NUtN6KsKp3EP/vQhWtnyK0V5g/tyhSUT2K8Xz0
6rzkKhXt32KUZ47rtUKgovVZjDdGkj1rKlW03opx3T9mAr9cRfUqQVpsvm6r
iRKbDPmXYP6lskOftQpazyUY2W+9jftbBa3PEkRM6cUdnK+gepZieusk0wFF
CtovpdjubZ+2Ik5B678Ug93MH4/8L/t9n2AL35kjCFWQ9wmeDQrwN/osJ+8T
bI4qtkpVy8n7BMtvey6x5MnJW4aUs9euPzwvJ28ZLJqNJcpEOXnLMHCiDydr
nZy8Zdh/dH70Lf367vZyUDB6xNAJI+Tk5aBh75JG7w4ZeTnQrd99IKxeRl4O
3kxKNqv/LCNvOSYNzPWwSpORtxzTFYcnztbKyFsOdc7fO8arZOStwGXOqbjg
BBl5K9D4sC4hfa+MvBWQlLu18YJl5K1A70Kf5lW+bH9XYu2hxjE2u2TkrYTT
P/1Hu66UkbcSHec8O/qNkZG3EifskqKzWqXkrcLWrWdCosql5K2CODKEK06R
krcKqffS1r/cxvpPFRp9z7sFL5SSl4vQyYMCRg6VkpeLirTwX4qbWH/jwmyh
o9GeRxLy8nBqeOW1hgsS8vLwwsql03WPhLw8cD64H/M/yPohD38VZGuSL0rI
y4f1nJc/no+WkJePqzUpJtDfr9vLxyK7pTFBmyTk5WNo3IDSjbMl5BUgO2Oh
zfAeEvIKcOWfZd/7icXk1c8hjz9k7y+IySuA9PKS6nP+YvJWQ33o05Sqyaz/
V4Onnfn1p68i8lbju0fPjnmJROQVwufjf6Im6udL9/OF4IpXFxXvYfNGCGtp
Xk7bPBHlI0TppsihxiNEVA/9XAsTfzFqElJ++vv57doQWiKk+giRMtLd9dWf
QspXiJiPN4be2snmnwj9zNx7HV0mpPxFeGQmeLrTRkj9SoRJrZ/+ELyuJo8I
014k1C++WU31FMHR5UX73E1s/orgnvp09aIfq6m+Ihz8J2LHlnoBecWwPYeM
LbkC8orxNDO38liIgLxi9OvxyaXTVkBeMZxmBK/a9JJPXjFc2lSXrhbyySuG
ifOcL3ZH+eQV42hrZvyo1XzyirFG3vdJhj2fvBLsisp58mEIn7wS2Mb/ZOvZ
wiOvBLqNqe/zpTzySnD0eMv5+ks88krQEhn7dUkwj7wSbJ5+qdzDi0deCX7e
Yf5D43QeeaX43Xj9xvSePPJKYVzI2evUwSWvFHeaOuyDarnklcLNdUleYxGX
vFKkv+sz5vNFLnn1+1LilHg5kkteKTLzbrZYH+CSV4r6rNMvc3y55JWh3S2q
750ALnll+PlC5Ikcfy559X2i0WSx83IueWXYsKH+m1VLueSVYfK9bSmJs7jk
lUHq93Tlegf2PieD7aTFDY+tueSVY8WxnLfOPbjklWOUurWPuSXzyvEv6Lj9
LZhXDqNGY+sJvZlXjuSWHmPDvmFeOZqq+DFutswrx+ipwXkj7JlXjhnN208F
zWJe/XtCe8qWfR7Mq8D9lQe8jA8yrwLf/dH049Ik5lXgrrfLw5PXmVc/h05Y
bh1wmnkVOCwMXGvFYV4F4o/+MuVBEfMqcSUjePj8Qez3VUKeXKhY0sC8SjhM
7TcxuoN5lQgpKJHt+My8SngenNojYQyPvEoU9z+YNcycR14lKhcq5Nv1191e
JWZYKc6pvzCvCt6aey+2tzKvCjfXnD4rNWbrWYVEZ+1UOxO2nlVwkX6r3WfG
1rMKxtyyAfNamFeFwsS6Z6PeM68KY/f7vml+x7w1+BCZuiCqif2+NRi8+q6p
dxvz1sA9uNWjtZV5a5BqH8+5YsEjbw1alVuC8m2ZtwbarzFeRuOZtwalNp+k
4XOZtwYJ67TxK93ZeaEWi1IO+Uxdzs4LtSh1T7P75Mu8tbhd4HP/USDz1iJ2
gEpSGcC8tbA4+ykh/grbv7UwG1E8+ySH7d9aTPvue7919Wz/qhHs2jl+vAmf
vGqci+HVtTryyavGncv8PhGL+ORVw77fL0lxYaxfqZGd2SixOcD6lRo9V845
PT2Q9Ss1Qk7sEs/ZxfqVGmXmXhmzo1i/0iA3O3jCnFzWrzR4F3KGG1TMzkca
2FdktLre4ZNXgxW59k5RrXzyapDdS/t3ZjufvBrcC5k7/2Ezn7waRM204Hw7
gPXnOjzPtjD1tmL9uQ4y7ozaTj/Wn+sQOjhynGkA6891GHLNlHMmXkDeOlhe
TdCGlwjIWweLOKHDYn3/7/bWIf1MlWfbwGry1mH4Q4e3drOqyavFAmVs9pHo
avLqr3f01bzRz81urxaiPEQ8bWPzSIu2faVjJw8TklcL86CG8BcLheTV4pWl
g9mbLew8qMWYntcet0Sw86AOH52P378Wy+ahDg5ym3s/3GLnQR0ajhSELZCz
+ahDWPkw209tQqqHDhGnVm14bc3OgzpM8O3Y+au3iN7ndbB4O1jhuF9E+eog
n2RVY3mDzW8dBCWxPbfViyh/HeLmren1fiB739DhWPQZp8Nzxfg/ejewwg==

      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VN8bB3BLiZJo5ZsoktJGihAfVKikKNKiJEWUEC0q0UJKCyFka7Nn
KWu2sVYzlmFm7r1ITSWlFMmWit/5/TWv92vOvffcc5/znOdZ4HTC5rCYiIhI
pqiIyP9/W8v/rvTnmRl9tRvXqt5VB78czwqLvoXIlfaVEXOtQ+B2H/m5favR
0PmOZ3SmDlfmD22Y0LcBPK9tk55F1yFIUrd9pHcnHNOXhfm31iH4/K5Fv3qd
0aY6tC5zz0sEF3ze0tfrg+CrHvX6e18hmJf99kfvFVj7qUzX3snG9LL+gj3N
kfB44lhte7wRlw6sCPhvTRJk4tq/Rf/joqP74fSeI09QO2hf9DSiBeXvg3pO
SmVA4qODqd48Pv5M6/99XikDlbd7tENV+Fhr5DApSDsDHwdfzH+jzkdurLZK
tEMGXmw37PZexcfjHcJdpbkZ6JLTUDlvzsf1Wr3qCXsyUahlGPvXk49daT0x
kelP4fvpknxuJR9n1qY9alfLQbrv5cGXuwXwzvoeZaKVAwOJryYF+wVwX7jq
esq6HPi/tGWSDgmwX7bE8+SOHAQwi967HRdgw5d6wymBOTAeO7GzJUCAadF9
tP6bHIjm/tr5I1mA5GFd6djwXFCx/MxdfQIkHT8/Ph6fiyTxLNvGAQFiPrL6
D6fl4iC+65v8FiC0aVOrFisX85t2FM8Vo+CVsjf59fdcDF2bc+HRDArrdl00
/m3xDMX2lsJ/ayjwCup87MefQZJ37vCb0xSEGV2aIZOf4/6yuxdfnqPQkyTx
vXjWczCNLT+zLlKYcMPs8Nxlz5H2eutb72AKqw/U2b61fw5XhVn8xigKUZPq
dJyfPYfgcJgSnUdhj33tyInDefhbtFSw+AeFI1s/5SV55oFx/NGc8JOCt+lE
r+ZzeUiuvqsmN0jhxrKN3avC87D9eHHz1z8USkVqWwfL85BkoQRvKRrz0mpe
nJPPx48ApYBmVRrC39Xngzn5eDrtrUeLLY255Z+yhwX5WDRt8edEexp2lyZ9
dBHmw3RRorbbXhqcyVs2WQzmw9KtdtOgI42CuS2zpJQLMC4yduKTO42bhsKs
694FEA49aloeSEM/8K/wpkIhLJsERx3TaPhuVJo5ploIhVk+Ta8yaORIGZt7
rCiEkmaU7IosGovCLz+1Wl+ICwdvL+p9RkPu0WS/accL0e+QkballMaXGvkZ
YaxCdOiutvFopBEpuWZjhEsR5mssCdnXRyM941PnJ2/iD/nHQ/tpsKyiruj6
F2GKxbanRQM0eiKGq9siimCTmQ+J3zQ2LHhhuqCqCM9i+yt8RRn80oNxlmIx
Pp9QTkmWYyDZ0ftuXL0YI/aXz8fNYKAUkHTRWrsYjbef59+axWBznWjFwKZi
GHCabV0VGDy0qTE0OF2MENs8h775DKzdNxm8ai4G9XvzrJ0rGRyRGW1T6ChG
UZWRp6wWg/O56X7uX4pxccHnta9XMUgdnvJCZrwYa9cPz9LUYSBypXGt7bIX
SG4rl+OtY5Adt0PnQ9AL1G1pTfXYxGBqo4PWX4MSJDg32Yo6MrAxlrW4aVaC
5EVujM5BBlHPqvYrWZegi29pc9SJwfx76qHGR0oQEnJhRa0zg1WOP7uu3ClB
z8LKWPujDOz6r8RN/VQClps4/cOLQayz7vOE3hJoa02YN+DN4B3V/XrlaAks
ZQadh04ycC2xGraeVoptre7/fvoy8LsibxOlV4ohJz3n2rMMEmZnTlK+VQrp
ftXUjgAGH67tV8qJLoW+SNXB54EM1P/IrjF5VArdp8WLgy4xyHnn63SoqBTG
Q2nvVa4wqEpFWcqHUvyndmimXjADibn9vLXfyfUD8VuHibfcfPz19XApMnWW
xz67xoDvJSXfI10GEZmdnvOvM+jS53lr6pbhl43uotZQBhpPr4ZUmpThjszV
aQE3GZxQXptkY1mGH6e2TV94i8GIeHyDz8EypDw953LoNoPJDUcWF98oQ/Qv
kyMVYQysoIDNUWWYcTpAa1s4g7u5HNv2pDIIze8oviFWjNK8/C+/DBoKe22/
32Ww4sBoh4mwDK3aZq7fIxlc3X6tLP5rGT6Y//txKIrBG5PZ8b8HymD4y6OI
Jr6xcNW+XKlyxL6On114j8GX7qNt87XLYRU3dbZtDAO0DxefNyyHndnZV/nE
UfVXYxjzcryo6KqeEctgY/YD+zv7ymG+dCj6JfFDn1Zq/Go5/p6xbpGJY/D7
sEvB3jvlKB7T+ribePuuwcjC2HJcawpc/5B4XE/O9kR2Obr0cgc14kk8LE1c
zSkuh4aB9iZ34izF5TPVa8oxxe5obyrxvnEL3lumHJSYoa5iAoO8PuqZ/kfy
/JjANmviKR+cw6O+l8PH+hXvCrETr9+rf7gcI/91qeYTv6gJsLYSq0DNqRzO
B2K5AhmtdOkKPD71jzM1kcRXSpysxJwK1Jc+UtMhnnO9qKlsaQWm++z+4k/s
cc4sW0GnAteG5XckEtcd49/yNa6A5Kew/8qI5+138mjeXIHhtHgwxD7b+rYu
t63AEZPZ1X3E9cb+y0MOVCBam3oikcRAdZX01E9HKxAVWfRFgdhPNbbH2KcC
OZIxoRrELTMX18f5V0DmxY7wtcRLJAoyRq5VQM+pdnQ9ccDw+hs771YgdQOn
zpKY+dLslhNfgc0r1w/bEK9sO7BZOrUCU/2m3LQjDuJ8X+L6rAIeEuIhu4jf
lp6TqimtgBikemyJ12RJdSu/rIDInLECa+LQxHuvzjVXgC1V9XUz8cc7aql0
ewUu/adzzYRY/9LzYO2uClzmGdxZQxx+0sTldl8F/m7MF1cn7nZuMvs2WgEf
qasfZxHPz1hx95EYC9sNbmmKEdc/GrzUPIkFN/+8b9/I+pyJK/Uel2bhzmj7
LB6xauRlp+XTWZi1rzu7kLjx5mabvXNY2MWrfBFD7BckZxqiSO43c4vuWeJF
FxmtwgUszLVzX2RH3HI6ccGnRSxcspEK0ST29zwiN2MZC8EbpR0liZccXS5q
osVCb8/ezA4SDwF7SoRxBixIUpdSA4hjql4HGZiwMKE6anAT8TMNZlmbGQv6
w+KbZIk7RwfOzLFhQWlq9KQIEp//nMSVC3ax0BI2x9eaeDZHrnanAwuHHj74
PoV40/0VcuGuLBhp3JpwhsS/k7hhoaYHC1bPrZ4sIT7vvsWh6SQZ/1Vgy9wn
8W/gmiZ9kYVvnX++LiOe/uaBSXAkC0tKVCc9J/tx6Yacz2r3WUjLDTffSrwh
s/xmTRILpy45PuiMZnD6fHuraCYLq1f+fDKZ+I3iLO/zVSwYTxyauZrs/8Er
qvJzX7HgE37EtJDkC5nvWuXFDSwkXh8O1yU2LrOaPMyw4B7o8nBlBIMnDtce
evWy0Phkbvw/kp/Ka6MsZAdZcDVVl3AjZpY/+ZE1Stbr7bo43h2Sz8Yq9Xsm
VoLvGbQzgeQ3j4Q/LUcUK9E3t1B+OsmHa995iO/bVInPMQmTfUh+tTa/kDZq
VYnFHbfanwcxcMu+sS1mZyVsmhq/911lEHcx9T51oBJOxofanUi+Fp3/Qdv6
VCVKf4iPq5H8zna0dTZ7VAmDO4o3NPxIfOR01l5JrcSUyQMfrcj5sFTER736
aSXJ99O+eZ75f3yHf0VRJd6vPiCZdYrk27dNnnoNlWg6dzpempw3LXs3X1g2
XIkq+2eq+9wZtNkhavqWKvTVfd5guYfB9eTG4e3bq9A6bUvg4t0MDIYcdt+2
rYLy45FbYvZkvpHnFaUdq6D6O10lx5bBfn7xw4m+VfB99Wrzz+3kfLJenT2S
UIW5VHuMtDnZL5ZLXr3tr0LY7W2q2eS8niQtIrw5UgWJss6TSzQZqHGo4XVj
VTipKdj/YAWDg5uuqN+XqkZ5ZrrU9aUMWje+C9o1vxqTF3q+MVJj8NoociN3
azV6NOhKXXkGaZqi1ZWp1fjtzP3t+ZfG0ZmtZY/316CQnRFuW05D9u48fT3n
GogkF4pakvqnSM6poOFoDbYUnvM3fkFDYtq3rCGfGgQOiaeoFtB4LPUv0eJG
DfyyxDtanpL6bmz+pZ7CGlw3rF9IxZF6rtvVbLVcLT5bXDzmd5aGaflIY3V1
LTT16iNDl9Po3WrDapZ9CalbcxsjblP4VxS8fqrfKzTSKa8HuAIIpYaTdTmv
Ee+yPHPBdAEW6pjG3V7Lge4+6siQPh+VG/5lGifWw+hx88NEZx5W6fXHC783
oMG6a9AxoQUTpKrnZ9k3QfAnPL2goRl277pM8m25iClom+k4k3jpQlHWHy4U
7x17edqNi0mHt4W8z27GfteIjulXmvAw7F7g6K4WaC53HQ1zb8QUtzhj3p4W
KGcuyFJyaYSP6YPxDIcWeDn/FMlyaoT5r/QLDodaYP/6ZRB/dyN6dpafZXm0
4Gh4gbqJRSPWyH/yCrragjsVsQ4xao14lbDKafrzFmjnB1tt/tCAHxkNphoy
PAyORL1sOtQARWepvEFZHkIv63T+59iAzYob1Spn8BDYlp7huq8ByaGlk+wV
eDjy/Ok6adsGOBzPqL+6kAe1XiXvk2YNqF8RYvden4daddmLVUsakJ67wS3a
hYe/ixaFHO6vx5HCkjCJSh5evueMNN6oh+PHQuGDah7euTfs/XOtHrun5a00
rOOh+UKGskZQPSxdMhtOcnhQ2eTCvhVQj1Vz4qXeC3ionHQvy8e3HmOn/ANL
vvJwLXJC7bMD9binY+LlOZOPjx87Y0bW1OOOkyFryhw+Qqqa1nlp1+P6Lb1p
KQp8hOc5m/Zo1sO/S+tphxIff2eF+3YvrYdzlEr35iV8RFwcOCeiUg/NIfGD
akZ82E9dIPFAph6v8uu2t7nwwYvwasno5uBMTNfoUzc+HJUkkow/c7D4gsST
wON8JJlDn+nkIGSD2e/FJ/mIc9DgTxNysJlX++C0Px859adikygOGvpq+mdG
8mFkstLGooaDlqXVEduq+DjunbE++wEHl6Z9NFKt5eNQquye+EQOVv0S6x56
yYe41DXdW/Ec3H1hapjQwMflkSKzMzEc7NxU9amH4WP1DmQfD+OAOlKpc72X
D/mnUR4dgRy0P6hgahQFsBB4P2x05sDud6Kjq7IAQ2nP9q46RJ6/PeDLFBUB
zuk5nIk+yAF73HjERl2Aqz7sNvf9HLxwqJrzXksAs9V1BivtOYhVqLX7ZyZA
xZ7JGostOdgTxuav8RLAn3vWW7iGPP9L+r7WkwLsDOH8vb2aQ+r3G53nTwnA
DPx9Z6JN1qN3y0D1OQFG5AOzMzU50N/aMMMmiPS9vLOuCUs5UJDi2njcF4A+
6/7t5wIOmAABN7lWgDcqfx3sZDmQL+qZbPhKAOnd8w/ZTuNgd6/4Rh5bANG8
2fF2Mhy0OawqHm8S4OPzuqcHpDno0L/9wL5NALHcFTqhkhx8GLDwntxLrv9P
LdBKlAOVZY6ZST8FqBkwT/QU4eDQodNdOqSPXumo+S1inI3O5id7DpE+OiLn
3OTOf2x8zhJbXypOwe+h2J64UTZ6XEtneMhTEJtsxvMZYGNZEm/rhLkU6nJD
I4t/sXGc/hocO4+CvJOYvwjxj40Kf+tUKEx6e6ki4icbP1VOdSovpzDk/muI
+sHG0JuV+c0mFEz3ltdVdrOhO9O812UDhZmSVPZi4jNb9i8ZM6PQEihaGPaF
jd/FofEalhSk3c7Nc/vMxt+o7quX7Sio6axet/oTG6LWj+zWuFOoetplsfw9
GyN4+03cg8KKDWcrM4Rs9K1QCGzxpDBj6fysZcRvpW9nnDhF4airQLjmHRul
r/xE0gMpTLT8cO9wBxt5hfmRZ65QuJM3P374DRsZyX0a5qTvX3G4UDaUOPbK
EdvOUPL/BnHj0nYyX2ObdKVoCn8Tr6XrtbHhufImvsdSuO4jKvOulQ0XpVf8
kngyP5PvrUHEdn8Nx+0fUSibpZzawbCx9duZCPVkCt7anamhxBvani8ZSqVQ
fOa/aUbE2kVLdt7NoqDV1CyZSrOhkeLcfTCXrN94fawjsUpUor9mHoVHkctv
zyWW9ZmV1lBMoc1TOi6aIt9jpejYpFoKuxfGa2YL2OhSWneXeknhvvxClh9x
x9TTi5+wKTQ+bM+wIK7/1mNjyqUw71FBxDc+G9Vt6l9keRTo3I13WMQvXjtd
eCcg3//am857xGkpTMr5dgosk/7IrcRJUTMMt7wl85/I9C0ljr5q1aLwngLX
7u4DaeLbPiEuXz5SGNO0S+nlsRF0qOZvQReFkT/WogJif5vxsKvdFHJuFGaV
Evua6Kvv7CHvM78wK5n4mKZvqUovBbejASJ3iZ2Vc6x//qSgHGj6KJB4n8y3
rooBCiL9S6O8iXf8Uzt/a5hCV54bc5h4c4+jnMMohWGtZUf3Epu2309e+o+C
pkm8+Q5ifTZlMDpOxmt89d5KrFUs1/xKjMaWVKOvm4gXp1oeuTeRxo+PtZkW
xPPvBf85LEnDzC+9+P//ywdV3Vk9hcZiv9my/79+mu8/NXEZGvsPa2fbEEs4
ry1plqUxS0sjag/xmM3J7UkzaPiYqdY4Ew+aZH3ymE1j+mWztV7EPZrdfoYK
NAL0Sn5eJO5UXigrrUijQSu19w5xu8yBJ21KpK5I19Z6TJzgtUf+7AIy3wNn
VxURO/Ftb8xZSMNZ/L1GI7GarvVY/iIa7qeKFLqIv8RYeu1cQsNNa+vYOHHG
X/PO/qU0Csx66Lnke3kcWL8rbAW5n9OHJ3rEAwv1DRu1abD2T1A8R1wYvCbn
mA6N5fdfViUQ+33VVJ2iR66PlN1bQyySoy5lYUSjR32/wywSX9XTVc93GdMY
HRqqNSYO8lXqvbKeRuIvw3kexNIGswSVFjRWJI1GNBI3xctaOG6h0e8hmidK
4jlcRLpkbCuN8jSmXIdYvk7sgcEOGl3HZkcmEy+07juW70DeRz90ZTzZD5+f
f3u3w5HGqsVU9Dvi9NmfbfqdaPx+pfJFlewvzTcda1e60qA0qTXPiA1dOBPS
vEkd5jrt7CeyX0XYdafNfWnM29X+T4fs75plVV8/naZRGV7jdJ14c38RV+UC
jSTHwdc6JB/YXUiOiwumsc6ze+QJyRcKwgfTDK7TMHItOSpB8ssb0/hLraE0
3thm5bkSO0lGuM4Op3HNqF+w6i1Z77uBq++Quu/smjLNDpKftIbOp6xIpNGn
7+xgSfLXgP2Z/xoe0DBPVthfRuyndEJkcgoNr6FE5jHJf0Fp++ov55J4a4yJ
C/nIRmKFrvPpOhoPJi15nkbyp3yb3Sqr1/9/v/EEE5Jfwwd8RdTqaQTNNXrY
Thy0JC+upZmG3vFfX2d9/f98NAXLO2jo3FU6+qiHjXUuS8w6f9Ewvj1XZ0E/
GwWBFjNLhsj436eV24g141w+hP0mderbSbKR5DxY2PzEH+M0Vkcli8kNsjHF
QKUwdjID8+lScgtG2GiTmbvYegGDyN0uX5PG2Ni5RH9IfSED7ZZf7LPkfGpc
v7tmbBGDpG/yD3eS86vyzD3HzGUMTmn8XikrxkHqhxkxk9YyOPsqPDNhIgen
C6Qnl1uRvuCZ5Dr5qRzM3D/2TeM86VMVpfROzSPneU/HvWZ/Mt7ykPtZJQ4S
/crWnyF9z7HyRTr+yhxo3Dt/v5b0TVtX7Q0LJeezMXd0syPpyy7uu76xVI2D
Y6bDaZHJpC+Jev3myAoOahb1uYg0M6QfFvH7YMzByd73HwVqrWiUOeBi7MaB
v8OIyYnFrfg3qyDhvjsH1zgySZJLW6GT7rdo5BgHcSkG+ww0WxHv+VI1/wS5
34FIfpJ+K0L31JYa+XIwm2tR676tFduOJDy8HcBBUU52sujZVihW2U5WieZg
zOvC0eX1rXD+cmY/zSb1xgeJovsBbaDlxdq2mJN6dOPTU6JL2lGVo+o5+roe
ulEmYxfetcP1y3+KEqQ+1mduzkgJf4PHEWETr4k0Qn3qcPRLvQ7YntjvZx7V
iNqVVp/HfnRA4oRxycS1Tdi6serJ8ui3GH2bdt+G0wQxyx8/JY3egdM7uomv
wYWLseSkPz/fQcrxhK+uFxftd5XN+i2F8DqW9ObaUy6KemLVj1oJEW+0WiMk
i4uojbOlhNuEyN9zUyQkm4vtw9L1DTZCmJg+NgvO5aJmz6h1mr0Q7+UkVvnn
c5G5QODg6CzEmrjQHbZlXFzIvu7beE6I1OgapNRzsUdSYtfGC0KsD7bRi27g
Yu3BwLWl/kL83MfLu9bIRf/0M3/SAoWY2PtJ05XLxZFThwOvBguh5/FZdwGf
CytD45vr7goRFiS561w7F0ujSjyeR5D5b+qxd37DhWSvznaNKCHUw6tbLTu4
qEpaPkM+Rgi7k1G7FN9xoTNhbsyvBCECBoRG+R+4mOEQ5eeWJETsOW/t2I9c
9OXL7Xv/QAgNpfAn/p1cpLtIKjc9FiJjRaOoWRcXwazLImbJQmwLjvi2+DMX
zgrj70tThCjhrrOZ8oULU2+/au00IWyz4tZ8J1bmDD5OTxdistT1yMZuLv4H
ME2jxg==
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.516720444088746*^9}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3dYU9naxdWLg8I4MpZPsKCOotgLjnBHmIXiIEMTGJRRx6uiIE3RC9fe
wEoTxIKISkcUUaoKKM0kFEEgPbQEAkgJkCPK6JXrfDnn7Fn/8OQhOdn73eu3
1s5cd38XjzGjRo36fvSoUfTfvzW3Ok099jQfu3cxwvSQO/X7CvlwZ176w67E
MDyd4uPKZVpHUXw5c0zwcgF5/1k8/uvWyZkBAtyLo3UeCfrrXYoyBOT9l5GW
4++Q3ydAYACtMPzPymUkc66QfD4SA/v251X7CJGWSusa5j2ruKiVIsRd5nnX
Ef1pKEzvgxDR12jdxMbgD8aR60Tk+THg/Cd7uUWkCGdO04qF1vMTt8ZLReT7
4rAk6tPRijli+HjTugdHv7DZHQFi8v3x8Lqke2dNqRgZj2gl4FzdI0PbWRKy
nkS8TNsQceOoBIkJtJJgaTjOhc+RkPUlY+vqYufyJVLE3KKVgp7YDxsOXJeS
9abiPi9mWPA/KSLCaaXhdut8R9dAGVn/AxQUT42wkspwPphWOsyKluaF2DeS
/TyEhw5PdramEceP0XqEo82zLZ+uaSL7y0CaY46Oa2YT/A/Seox1qhW/e65q
JvvNxDylfKdXSjP2MXqC0zZl4feWtZD9PwVHL/VZVGELljHKwtWzNtGeq1rJ
PLKw+cf4zz+LW2HMKBspOxZWrT0uJ/PJRlj/Ss9fxiowj1EO2q44TlZvUZB5
5WBT7DGH6U8UMGSUi5hdfYf6/lSQ+eXCIcAiVN+tDQaM8hB5ZejrscdtZJ55
8F1ynRqk2jCFUT7sL9w5YOrQTuabj9L8rp9i4tuhN5HWM5zdFv6733A7mfcz
jB92Sv7GSgkdRs8hm7OjwDtMCdaez6G0Xui5VKbEWEYvIPH4Pf6vuR1gjiP4
BRz1tC64eXWApaUAFt1ng5fldoA5ntMFsNt1L0c+vRNf/kurAGsH+62fHukE
c1zHCjHJZ8qjV2WdGP5IqxA/J1/ee+5LJ5jjCyjC/QtHjdWbu0CpaRXBtKLN
asK9LjDHefAleJGFPm4DXVD10XqJlJfPJyZYvgNzvN6vYOtdyC1OfYeeLlqv
kJabmec+/A6ezHkXo/eTSaCNfTeUbbSKMelxbfzQw25y/iXQj0y85qHdA3kz
rRLsdipsGXbrwXLGD6U4/khHK/9JD/v9vqU4wUuxbXnfQ/xRiokr0gYO2vWy
fuspBa9yW0Xj1V4sYvxShlPT52RrC3rxjl6eZxlsj9kmCFf3Ef+U4XxVedKD
o33woJfbUQabn3yiTxX2YT7jp3Jk1yYbyf6hQju9/D3lcA22sPe2VyGJ8Vc5
rFZV3vxnlIrdj7wc0TYTrAZaVJjN+O014rWzpsbP7UcLvb0/XuPLnuf3rnv3
k7x6DV8ruU/K437s2K5R42sYmAmDKxX9mM74kYMyB8HIGf0BSCUauXHgcKLB
13zHAG4z/uSge1yOXsCdAWzdopGIg4OHhlfqiAcwlfErF7raa932TBuEgK+R
CxcdoS++9bMZJP7lYvdNakLwkUE4O2lUz4XbHzOebckdJH7mwcn/xJgQySDq
ajVy4OFJWXvIYV018TcP/ESjHdFGatjbafSGh6/7AuzWWKqJ3ytQ+2nj55jt
alRXamRTgT8lU12XBKpJ/lSg9/C6kPwramyy1ohXAV+9QcmkZDXhoRIl8tCi
6flqcF9rZFWJr+bu1wJ5apJXlUj6YB70Wa7GhvUalVXiLydz4eFhNeGlCidM
TcystCiUFmv0cxV4v3CQM4ki+VYFUfO0jqWLKFiYa/SyCkeU5/T9TSmMMDxV
ofPQb9qcTRSKCjT6ZzUKXB7eGNlKkTysxgOnj5FD3hTMTDV6Xo3FXqqRjwEU
/mR4q4berbNb1p6i8CxPozVvcJ87sH5LGEXy8w10+UVTXlyjYLJao5w38Psp
5wl1h8J7hsc3iBhayA9KpZD9VKMVNfA7bSXfmUuRvK1B0KRQ3pmXFMtLZg3c
4/yqRVwK/QyvNZAvPxSyq4ZieVlciwf2mUlxDRTJ51rsuTpuQaiUYnlJr8Vv
WwYF51oolpeuWryy8sxqb6PwgMbF6C1cj30JK+6iCN9vcTLBfbmyl2J5SX6L
jcenX/AZoAjvbzE/Ktkhd5Bi83hOHbr+mzX7sYoi/Nchqsb9SaHm/wwu9+tg
erRh840OiuWluQ6//RZ08brmNeO/CfU4t80jaamS7HdZPb7zMPxBJqdYP9rX
Y8m5y8b+rRTJi3rY8IxvJjZRrD/D6jFn0aofdWVkHo/q0eD1KaKWT7F+ra5H
wofSjMM1ZD499Ziypfj9kkqK9e+4BnxRfluaWUbmZdyAOa2l06yKKNbPmxrQ
ul9U7JhN5ufZAJ/K3csmp1Osvy81oHSkzDk2jiL504DY1Ks/Kq9TrN+5Dei8
m659N4IiedSA0EZ/q6rjFDi0///BR9cvPQndXmTe8/iYFt66+/M2iuVhAx/d
UWr+gDNF8ooP46yJ4Qs2UCwfQXy8/T9Dk/8sJeeRwIfrr5M86gwpjKZxKeXj
1McY3Tc65HzkfNiv33e76U81Smh+vvKR/2pnelqbmuSbAMOb6p3f1qpZniwE
CDo7beRrrprknQB2TfKdgvtq0HiZnxLAYthEx/iimvSvAF28U5vrfNQsb4UC
mKW7XFzppCZ5KMAJg06vmDVqFNL8fRZAlcg9Pt9ATfJRiFnjUheOGqVmeTQT
wtFrRqhtySDJSyE2LpTH+F4YBI2n6VGhpg/3j+l2GCT5KcT8oNwDvfqDLK/5
QniOu/J0SvffeSoEt7vAdVnOAPJpfjX3QHfHhM6oC3/nqwh9enP2uTkNsDyb
iLAya8Lp3kkDJG9FyFujpSwR94PGe/W/RbD8wItwjusn+SsCVT/2fcDv/Szv
WSJoLeqLOjCjn+SxCCpvc8tZTSpk0fwPinDI7te9H2NVJJ/FKDfqiWlzVrF5
sFyMMQs3fi0cr8JbJq/FqE8tt+KW97G8HBCjOuNT3uKTfSS/xShw3CXYtbSP
zYsMMVzyPqmyJb0kz8UYsNCzn3+7l+WlV4ylbuu+8d3US/Jdgu2BLurTmj5m
eFkkwS6/Wx45D3pQxeS9BEKjkLpJrj0sL14SuKf2GPZp9ZD8l8A8Ol7q9qQb
3TQvaRLcerFOn+PdTfpAgssNqYPzDLpZXjolMAtMct9Z8Y70gxQrcyZE2R9/
x/IyX4qr9+wWP/3hHekLKcQLwnb713axvOyVwrpz1ej8f3eR/pDiWHKdyXyj
LjavEqVwddq9VVzdSfpEivLrt5xPnupkeVFIceKI/ITrgk7SLzLoyBIT5KIO
lpfZMoz4mLqvu9RB+kaGyp9iXfebdrC8/EuGVpsVn2UdStI/MljGGza5xClZ
Xu7KcGNeUdKbHUrSRzLYLtyRoj9OyfLSJMMX8UjA44ft5L4nwzn+PaN0q3aW
l+mNqONem/mvjjbSV42avuw+qX2pjeVlWyOMzQOTlAZtpL8aEWZkGPo4V8Hy
EtOIrfLvA76xVpA+a0RHS8O6sBdy9j4sbsSuCJVzqLqV3Ccb8e0F/u04s1aW
l6lNCGifcX+TewvpuyaotYU/j73ZzPLi2oSxXv7Dh0R//35owvhZVmXTxjSx
vEQ34f35tX/ctm4kfdiEj41xU3XtZSwvDU3YUiJbaxAkJf3YhAp+iMl7roTl
Ra8ZD/QW/+r7l5j0ZTNW6k2dZbtazPKyuRkJ0TOTfvQRkf5sRqylV8XXIiHL
S0Qz7orCZm4aLSR92gzfBeJX32lyjOGlphnSV5lLwrP4pF+bYRq4IumGIZ/l
RVfzu8asachlqIH0bQvCj3+estC+Abo0LrYt8FN4y9JL60n/tsB73ctI5ex6
lpcrLQh63rk68sNb0sct2FBjnXH9Sy3LS0ULNj6f2XzSq5b0cwvC3t3pUXa8
AY2L9Tet6PKICF7fXs3yYtSKeWbaQRMtq6FN4/JLK1AsN4sPryb93Yrm0QZ5
s9KqWF7Ot2Ltd353vdSVpM81zxPuW5a7uRIXaFzKWxESsH/G2LQK0u+tKMm4
aFo8s4LlZbQcm0ce2o67yCN9L8e0iROCE7V4bL9YytEY+u3NwTNc0v9y3BRP
/npnD5ftlzNyRC76btjWmEvuA3JMXr/8/pU+DsvLKzl0qcN2kWUccj+Q4/3y
HyxmPuSw/TIiB68mObz4CIfcFxSYsyZGuN2LfH6WAtuzO033xXHI/UEBA5NZ
Q9U55HnmCozf4bs1WMwh9wkFLlHXZq4Qclge/1Cgeu/3E1M2cMn9QoE1MWln
J2/msnyeVGBv3FyFMpZL7hsKZDyx3qtvw2N5vaOAeLxK5XaZR+4fCqw4eHhI
BxX4fwzvqBk=
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4Vd0XB/CSDCWV6RUyhaIUFQ2qr2SqJIl4lRBKoyaUIUOmSiXJ9CIy
RCSZi+qah3vdsULCVSGlOLekVPz276/zfJ5zn3XWPfvstdZWO+Rt6yk0Y8YM
zZkzZvz/2vX8z6pLPPMtf87sPLuqgQP/4tMvLMc0IPchWO5kKwehNuflFcfW
4npQOe8Rk4Nw1R+mwmOmKD+SeMe0i4NIsXXdP0ftgBQ15YKvHEQFOmh9G/WA
/+Aa3+MKXERVDO0cGz2Pifs6D0p8iHmPer+OhkPaUkWgbsSD+oORn092RGDK
68P85SY81IRoS0fkRGDYaKJ3/XYexnSzLBT3R2K7y4prng48OEUnFFs0ReFs
f5xA6DwPKzcHhWWkXsVESUGRVREPx/dqSudrxCLsDnfxwqUvIfVMUOHEuYNg
UeVDs7RfIcxlZYiCQQZq11o25pp0oGf4ntTI4RwkTf03vOF2F573R46cEy+A
yO69JXsd3uLC+vysbs1ihJ19uHyRWh94FU3nHadL8MraYK3Q8n7wf9UHRtHL
YaRlwj3Ifoc7YgZm8UeqYB99+d4djw+Yx3TW/2NUjealHtMaaoNY6TLZs5X/
DBvWXrM8RRtCiFM1P9WIBqe00RNhtsNoc7X3MM+qhfHs1Z83//6EYSvtll5B
HSzqw1Vt/UZwVKbrWfbBBkT+/q5b+fsLTJ7/ZNbXN0LY6KSoz/5RjO6ypXEW
NCOis/n7KpMx/K2K2jbPvwWTpV/e9LDGYOwr+2VPcAvOr0l/3cgZQ/iarISE
8BascDBMKeSNQaLo+bDKzRZEbvXw8+0Yg0LW+M3V2S1oaS4J+t07BsPr7m8d
mC2QNa9zavsyhlNu8Lmn3goZUW+vC3Mo8MUnctfRWzGeYrNiGhRuGTJEvrBb
YaMjx63cSsHEPfPwvdet0Etd//nUNgrZNTu15r1rha98qU+nOQUv74ycdz9b
kT16rDdpFwXq5fbs61ptKGnwSWQ6URDKSM18H9oGhqRT8JzzFEoZZ2YmR7Uh
VeRSUawPBY9f5m7W19sQMJ5jIutHocmWUn2S1IasubuTFvlTuDrbPOPGozaE
KK//IhlCQfr4aPqGnjb47V/JL7hGQcPQJPXmejrKkCxTmEnhoHqEq84WOlRP
CY1P3KOQLNmi0biNDquenk0m2RQkh3Y9nLSmo6I6aCY3l8LPxH+fe3rS4afl
Y9dbQIH+6zTfKI6OTyMSvPxyCmef3dX4+JkOgeLil+ItFArz330Mo+joqT75
U62VwtAdzYeLJ+hIdTh7cX0bhQOnCgz2CjHQutgx1pVBwVyl0vy5PANjtV/F
0tgUFEKZXvFmDKwIM+tv6qRQa/q30PguA/1502pvhyjEydeuCMhm4F/1Vvni
j+T9jIQXluczcPZcckrYMAWxeIlCnTIG4obObFnymYLNe8UCmVYGMlaJz9z7
lUJv6Mb8jwIGjmr/NjnxnUKx/dSyJT8ZyP47wl42TiFMuy7P+S8D5kvjB98T
a3K253FF23FAf32e/QSFE6r/3q9RakeKg0vw0kkKk8/9cmLN2yF13sU2fJoC
I85Ik76zHaPN10y1ZwiQfng6e/aedpROelYziLdKRmX772+HnO0Jw/lCAkQ7
J2R5nG6HYTD9QJiwAHJ/yjLXp7SjjqdiqiYuwEfWBbVzd9ux5BBOFBE/zdqU
+TC7HW+1beQ2zhHAeWdDhvqjdmyLzhi1mitAdgrvrkRDO75PXy1xnSfA6g2C
NP6XdrDcv+0zXijAmcC/vGvf2hEnG+r4grj4hdicdb/aEcadn7BJSoBV5iq+
14WZYFf6NuhLC7Bir5X1RkUmvm47OSwiK8DxBIfwAVUmtoXNavIjftB16Gms
FhMVsqt7Bom1XS9qDekzUVRZ8PSFnABaJ3OnblsykXvmtO4BeQE8ix+vhTUT
r6c03zwnzv5Wc+zTXiYcUjRpKosEWOLPe23swoRolfu6t8SqUTMeffFhIn00
kQlFAVzb5g4kBTAhcsxhazzx3Xn/KJqGMvHFUHdkkFg5XjcqJYYJa86V4Ugl
ARQznVwsspgQSlcNfrxYAKcPnncEeUzYOOYXTRCnLD1DTytiwst6lewmZQHk
i6LWfX/ChOSeosgXxI5U3Mm7L5h4onD41hRx4tr0rB2NTISlJHGNVMh6VZfN
z2QzMc0enSgmtp96YWb1+v/Pe939kTh+Kz1gopuJzl0148qqAki39A/tGmLi
k/I8egTxgleStMm/TKiHJ//crCbAbnmFHzmzWDD13X7lCPGN/Zor9oizINEs
s/sm8bx3Rkn3ZVhwe377YhexlaYF01aBBbWb0r2/iWO8bIWnVFgQlrbwU1IX
YM6o12m75Swc1Dls4Ui8ffX53Gk9FpLN1S6dI472CX77wJCFxKWrhmOIW6qu
Su3bxELC3QvR2cSif+5YzjRhoWNkcP9TYnNkXiq0YCHvibs7kzgyrLDMYRcL
p5S60vnEjY2Vn4T2spCfqC9JEQuL16sWObIgouD4eJr4zZrdUr+cWSiN966Z
u0SAxwe7Z5m6s7Bz+0ZDOeLoK0fGb3ixkLswT1mF+GDZt8GukywMLsr30SI2
6Avu1DjHwiW+rtEKYok5Em3eF1jYaLjUW4/43dqk6qdBLGzZErlwDfETF42H
sy+zIHNqk/pa4tirxek20Sw8um6U+f/7h8s3xf53neRf6XNDn3gzvyV0MI4F
DceeYV1imbn25/STWFBd5Vm6jPiTQb9HYBoLetYzPqsR17qe3Nd8j4XsRfdi
FxEnXftlIZXHwr+WW7LnE5+qiNjg/JCFmvctmsLEpv0Ll+eVsMC0MJSdIO9D
USJd6VslCzpLAs5+JBYY6khuecbCXL+YzZ3/Xw+3iunoOhZsE118m4jvxphQ
vGYWonU+KZUS+1Yy3ym3szCkra6fTrxk3lBjWQcLV0bP3fMmnlx3rnL6LQsv
zQKm7YnZh6bzdrxjwXXZ3LaNxJeq/onhj7BQbZx1f5p8P3bvs4KWC1hoTf3v
aR/xckk9b98JFjI4fzY+Jx7R19AWmcnGwcyey77EDhafMgtmsWH9a7eVDXHd
gWKFPSJsKGcvCFtGnBy1SSJ1LhtufzwNXpLvXThNKGKrJBsrpkZL7hOfLmn5
O7iAjZu/S9IuEpv32I3qy7FxRp37VJ64RKDg1SHPhtx6rS8DZD8tFuvnByqy
8UAtK+Yx8ffVJ7nNqmxseDNH2pQ4Mzqi3Hk5iTe6c/M+sl8l0neunLWSjeWn
0jvliC+ULryfp8fGp1ni/a/I/rfuTUv6ZsDGja0aG3YT/1lTEXDFmI0Mlo/I
KlI/9vUNbi23Z2NWZKFcFqlHkS/fn9jlyEYMY6GZFXFFKz9xwImNDsl9Y99I
PZMre/NF1pWNTcLXn20hfh3NTPY9xgb7B9bUkXq4b3UFtS6Y5FO24FYIqa+R
S0uV2KFsVLUsjF1IXKFUbOEVzsZQsZNEJqnHcqIP0pKusOH65GNgNanXr7vT
tv+6zYbQY1H0zifxIiIyn+axcWldr003qf+R/mEM2wI26vR2aNsRV3gHT3x6
SPLpLg2mk34h53Rxl2IpG5+3VeWWk37yeuXJXwHP2AiDcp+fKInXabdnM5eN
GdHqomWkP+1brjGT9puN1znjj+f+pLC50zQqdoqNcwYLGKakH2pEeM5zm8lB
0OU09cAfZL7pzV0kJMrBgs1XIgZIf42J015tKsXBpXtztLIoCnW/Vrq3LONA
wWfL19ZPFFa2bGhk23Mg9zH8TlM3BVkfp52ZjhzM13EJaX5D4Y9aAOfMfg7U
hbYUNnVRaA2o6ZFyI3P8xcrmFx2k/6/CD7sTHDzhnpVK41FISTBd2hXGgSVf
T0WYTkHUc/eV/kckvkHWiYgqCk8j9L6ElnBwLTQr072S9PPchXvUyznYldK2
z7iCAnuIJ+/+lAMXWzOT8VIS75hj3gdyjujVE12y6xHJ97Rb8xA5J2SoxhuU
51CwCzg3++ssLgymuX+P3KIgkmp39IYIF6cWP0mQi6XwpMagfaU4FzE7lSvq
b1BQnpqI95bkwva62ZVFMRQ+hgRqUPJcNHINo0ojKQRERmz7rsvFrgMqMpkB
FO7dSgyddODCftZXWQ8PCnOPpRrznLiQvJTzsP4QhfMmmdMFzlzMc+iKU3Oj
YPHtQZCzOxexfcIWnc4URuyeX6Sd4sK/Jd9F34GCgfzAmcgILranBabFbafQ
kr76kFQpFwM7kquldSl8LWg30ZHkgR/Z5qw5OgYlD/Gy8QU80PU3V2iQ+XiH
kplmrTQPN+20Lqt/HkNuTI2o4yLy+7zfAYuGxuB8soARocGDUIfG+HcyXzNW
XtnXv5GH8xEbDh1ijuHBY9NjSUd4GCmkVBUKx3C4svqWSC0PIm7BunLuY2gp
b7J5c+QlhO84/ROcOIruzBedDUqvYCWZ0bdG6ys6Q16xcxtfYaOeCGdbwQhm
7snaZ3D8NZqe6S0wVvqMbkmXnDfKHVA0thEX7BnG3RfrPPyaOnB7fFm0TPwQ
ZA5OfdYJ7ERXtr73gawBnBvtf/9KswuqIw9tN7S/x9SZoKO6jC6YhvZ92j/j
HTa+E6n6L+QNFihHOm6V5sPV7KHvTO1uCEb8Ut3vv8W6hK1TQX3d+OeGryNX
pAsbO69L3497C5+aG82ZRa+wdN5EUvOGHiy++zRVwCDrvMp6aOprDyyHNhdG
/WBhl1ldjm5SL6a44UPX/qXDa1wg1ZjSCynVAQbDko6wnCUhB9J6kTLf10ue
zPFVsyOcrt3rhcLJTjZLjg6NJov5w4W9+LB2nPHiZRsmzdsvZNf2onB/bvp9
2zbkWXbuVPzcizaPBemP9rVCyOorJbalD650oR9uIc14WWrytNO4D99LCn9s
OtOMHMXEsLxtfVCeJXNH81AzLD+To+32PkQv1a1WMW3Gjau31kbZ9cGxwUWp
SqwZiq1r/WYf70Neh//9wPgmrDUP+DMzqQ9SC0UGvCsaIVLEauCk9CE2wXeF
SH4jOmQ1rmem9WGHj3PMg/8a4T/AWLw1qw9JEzLZi0MbURuujJCiPry00056
aNUI6/ra0KmGPgwWnSv2G2zAEWMx0d9UH7IPuA4yNBogrLT4Ycr3Ppxe3JTw
bVED7k3o79040Ufm1+4RrfkNeFu0/+7FPyT/bYnxpb/qkXejQzFwFh95LjsU
PVn1WPxXp2xyHh9rI63MlgfVQ/QN58OEOh9KZQ0R9u/q8NribaWFBh+WA548
2a46ZJcPXk3UJPfTf8q+Z9XB5NZvvXXL+AjM1L+c/awOgZaaQb66fDi+UtxS
n1wHquKC7Pg6Pmp6n6w8a1eH7tsq5gIrPg6I2hjl8GpRNZKy9Kg1H0mbR+9r
0WuRYCYnzt/NR9XXTbFVdbWwmZBgtNvyQbOneueV1KLBaXJPviMfVuEbai/d
qkWh2itnVw8Sv402GrC3Flf8bdDhyYfEfm8nEataHObRVa2P8PEyRPt4pmkt
VCPq3hsd40PsbEu0uGEt4j8+OvrPaT5i42ZOZi6qRdCjqz7MAD5iCpw44+/J
OV5MxMEsiA/TMY3aaz00rHcLXV9ziQ89e6Og1R00CKQu/M4PJf//6k73kjYa
Dvt6hkZE8XG+QFwzsIQG683G1zfd5oNd0Oa2IYKG5QnVp0rj+ZgxlaDYE0yD
2KihjU4CHxdWN9ff8qehLkNXWj6Zj49R5kO6p2kwFFZM/pZO8lEOfKx/gAZp
5wT/Yxl8FGoYyzo70DBWvvBAfyYfqfL9vsm2NDw4IqbCyibrq61lZLadhija
5RnmuST/AZ/MMlMaPBZN99fc58Or7ZeEgTENJmf969fk8yEvExTcZESDCn08
+8EDPsZoTZNe62j4H0uSJ+E=
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.516720444120748*^9},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztXAt0VdWZPnLvTUBt68x0zbIz0ynTccY+nLFVQUuHkBASIEAIJCCKCBGJ
CcgbRFQQHwhF0Yy1mlwgIRBABHmIBKlo8VltLaiVqs34gApSW8rga6Cod863
//3vs/c5e58TZ7FY7ZrW5ubmnH2+//3vf/97HwZVz6gdN7F6Rt3Y6q59p1VP
qa0bO71r6eRp/qXUKZ53Sq3nefu6evie87/Kj5z//1wdPnAl+XuZ+HW611bj
if/1qG8XV3K5Nq/G/6+NENV9f4DXnst1Exc7xz7m30uJmymvpi0nb+e888Tn
aUmPMjmvvj3ndRcj8mOf6SSupLxce73Xo6ZN/HVBB9hsr+/RycLml0g//cWv
jJcDhERtqyGu0kwx1+7V9yC0bonj06AoOWnz6uvbz495JKOTqBGql0IljNeU
EIefJ8e31QSmDkkObpVifAhwHie5bTyz1V5fr8ic34Hxup0uiBnfyeCHbM1G
DWye874bg5GneKwRqrGoghTYcVXYxhuihSwUh9/OcvnPxOGnpJPhb3GPPOGC
jrCEoVLbZ5x4Jwh8rYdS8HkdcQKfrXp5L84J0grf50X6f9x4pSkhtlAtZPgr
kpwUkJJZlZ7sfgKTQUpxxiEBV6d7cRHLz+Xa20U2EM/1SM4MAX+gQ37UkfFt
9fWSTs6LUc2FSvlBpuV8F0SlUEv32KGSO7reLW6oMpu4bkNlj4tOCea4TARS
6OAMt7jic/jJud8Fv/DFGyPGWB849QRf63ISaJyMa//f5Mhz+9RfVPsXOU6Q
i/yz5dpZJ0HEPyW6f+NWY0/LtYITPC6G/MmcnMR9cfukU/1Tv//noxVqAmTO
PHToozHb2l5bc9O8He8OGbzyJ5MnbfEX3fHP9hVf88/44INjtZs37cEzeLZ5
wW07Rzy247+A6S/A4zFKiP532n/9ezz31sXDVt+3+I6nCnfv2u+dnvBsMT2L
sRuvv2777rFXrIcM4Mf7otUaReJqGtTALX4qnnryrZjiVnxSEGauXdW6O9er
Z6P8yX7Ut2SZP9z/y0s9V3fVRnwD8wZxG95F4uupIbxGxvB/Gvj3Z4U9sxlB
In28uHAJDwWZ0xKoyLpcp+J1Ep+nAxUS4OedqqGtr466bO3iH93z7EtXjFm3
b1hl6x+LiwSpTwt7ZX9XPrBFCimEYxpJlu1mCvl+/75N+P1ZYUEWJHxPWfHe
4PKWX4wb+yCsRoV4Xr/nn9sHs+ASvoMjcNPJouYk/zzfruZjfYqWgMTk9ete
3jZzRhuwOh879gm5WxpU/6ekeCkx2zPbySJ7OoEyrW27hClDnRDsoj2vHIS3
gpRsNCjBYQYmj99yypZTfFLnjLpuGaOdlSMAnTOrVeAE4I5jGfFLU01KtwoX
EZ+v05VyqercqJHYQKAGwyAxsJG+qoh3tNkkKGdUCvi23SnYNLgLwZn+1xS9
jnZ0nJKek0z5G3v3Hv5pXe0mOEjXWEltHZVOLsrfEl9PizM6RiCRgnrXd999
3/unWCvHtTCcCiA2MsjxYTMz73A0xKTI4V+XLKTDru9oGaRdhL9J41n+/UOH
tIJoKqCJ+QPuJcs9d2R/w4TiKLVBndUxKFYH+4HUBOYlBfUvCVBn2wWUUPiq
oP41AYpIZcK+AiE9DQ8xKf46W8MLJlpC6Ww1tX+HEb6ZwMxZsXIZ2u4YVIo5
0uVBOQC/FzjfSsAhB+kcZkmPXjjvtzsEk2+w419B6EFRIgTPiWDc9cO7nxVl
lcCgDKFmGZ4bmSWwASyI5/0bYX1Js66P98yE8ZteHTVy7ZR1D7xMmF8zDScL
BcEf1IPYRJr4dx2OpICEMiJeqh69HoqAQgj2H6Jaw0THPgErwuHP1WE7w746
rCyAGlCRkAT+sL+zB6Q0LRRGwvl/nRt2VS8PUHoyPlgxeCUULKDPNG2kJ2rM
kaIi+K5uo4xuZ64jZM2FEqrh8ID+ywkCI/7W7UrQMXQNnRskupiuRGS4SGIl
CZJZL5W9fdGTptv9tdvtUJCItHue23UpzeVzOaBpDwVrtvWWmx836IRFgzhw
DOGS57vpZIIAZ9lYjZuvu/YRUyZZQIVlYp+6wE2GCsg8s+IryHKBKQZ9wZTk
4Vkzt7HXLmhseB7XZbPfSqJzIAlrzLNV0+Kzi10Sngq6u8mcGpBhSTxb4So+
8+3GQbTCCUQajKF1WuAEMM4nvQvFOoKXJ0QvoGOIA2zQAK0Lw+H4hUCIn9dc
ueG4D+wWgib7jF6ZYkYRAXSRm3mZAEc/su11P57VUitgOq1lSHlDzXffc+PK
BFC58ydvIk/o6zTClRUTK+Non95LlbJjcGlpmil/5um3Pymy4Z5i8ntgSEXr
3mFVq0Tq7eHGpQDN03F1A35GWZW59YcsgRa+7waUKwUA/q58UAvqBqvxjpn8
Ip5Qgz519YTN3n8QvAyamLWObcPfVnZ+ma5ByTsnTXzIzyN2jzoaYxxmquO7
7jZOKNenfzx96lZwwfEQ0oZhvZ6K8Ofb984Y+945AvG+EjDw3uBBLWzoo6ah
j/uGxnxZoGh/jo1mETpiDiRpMx/0K0Xx2GCkho/N3P5y9eh1Xq9YUW27u7Za
/0zTBY+U9Wu2Wvt9Yp+VjpyMOT9goqObqDYmvhK4nO/XD/iV71IrE0donF4h
e4WSg8iCx7abafMyKoZSmMZBHH5sJX7Y1MCHpSVNCO9Cd3j/PVkUhcJL1WPW
H+1TvERNUVKUdyqHtqprRW4oqgXzUAMAyo/8h9bdOOfH7CCHzJA4PKBsOWYD
kdhjUKkxkMLKGfPB28OrVltFf8/UuyiXit2w/xh467Pj6zbpBZ0Be9DUKDQP
jmOQqdLOoJJ8eNY12/SeDzO51xdCoJUUL/H6aFACicr/DErchsW3P/nGJRev
UUH2WwJA0tszetQDQnl93LzQYj8PRcZvKwatCM8GB+iRNTfPe0xRKElE4xCA
9bhShHT7SVUIuWPFvZUbxQBSIyAPzofq8ZIdj7br0r5DgK9fdun9ej0TA0ir
rwwv/N6Weha6/w2hAUHmL3G91I1GS8sMyjT4iGGIvXRv/pIlP8O17TOmtamF
cAyktgr/bz+NGdP+2zTeZ2qZYrqfG4oW/Gk5/yl1v0WXN95w3XZdaYlAGTbr
b6qGrlI8vUFosNAfpeOASP+wz54djNNtLx9/YwRpjpnp72aGmieZa9as2n1o
4ICWDXOu366Y+TWhIbLe79e3mYmUudFkgwgz35H+wROvB0kPq2RMLMp4MWjU
QohMta/RZSBk71j0BF8ekAQkNC6tHRSrvwrSB/421gwxkNSXSMv6V9Uhe4II
g6Q3rGjZpRsiBpCaFGkY4qPSkmXM3yvEHtawyJ0GewPdaNSmSB0aNGC5Gv5L
4g18vDDuyg3hVVgimlgjoCB4ZkLdJqW/F+keshAk3qungPKw21K7I4151Z/5
VJ5+MRCyaeGCncYivtzNFvUh0uO2bHn1WJ/eKsvuIjRebRgqG+xG+w5dkxk2
K4b/glTGws1rbnpBZy4RTWyCcCSAtxeIN2wPYmvP4K3CjUatizTnVzgw0H5G
7AEJiPhLX8clA2I0lyD+5Lj0eQKkumfkWsitL+CGEKDcUOzweWdZ0YZYOC9w
ql+OuXzd/sohK5VT/ZT4UAtR/y9dVcxHwvE+3JPH+rgcthV78jibnrC8Z8W1
fG6j27oWXsCF+2hk3D0bF2nkxo9L+ixjEz9NmkDqggZgEV0TlYoH9/oio+0h
kVXUPbHIoP5Ryp+HWtkPPEkWHCAzhlsclR0SXT9eKA8uWkXvFjjjwSGDlRdQ
yy2FFh50LjpEsmTkjo74GRrrDfrhX9aBzR2pUaMWcMwENefz9X5LpI9ZJRlw
Ljf44LHL9t0DBcjyNYv1DtHO4/ZY2AjD3OF9YRBbz9detdGv/VUG8h4jVBT4
WCLjur45EXPQgdorac6QjPhooCIUgfsrK1p5JaZiJRkVvKI9AscHH4SaQcrd
MW3qw8acMMKN1iMII31O2E5o1kL1Ejca9WnMFZmEAsy9dy1+ymBMhxJI3w+E
+70s3cHONsKARWFdYxq41M0OtVDUmku0c8nb87jpGK44EtHSVFYMFwUjGs9b
iTeuIY2Nq5FutJ5G/DQgOOARW4g9vYbUHSMRUDUmsfxSPryZ7iEb/mFg2XLD
BqPckL3sMb6JLiPRH6woX8HSXp4IJKbPEjV9LtlIbOkVlmIrBq0wQDtQWaHy
34OBkJHKarQbrch0kuO9/YW5hMK6dMX8Wx83GNOhBFJRwM6bI8gvNvirm3WE
wcWG4bNj3Oz0NnWOZjHKi7XkFxAObsvrOuYqEVD5hVGM3k/3rOVVtRuyj90v
VhOPoMRrYr0ASAbUtxHg9auIPS6vcHxHsTfWjVYSoCGbI2sjtFoJDUUS932U
UWPQaLXMx5kaXrts5FpvZaBTllQxdmUSlK637ONTJm1pIb2FxeT5MhEwo+sN
DiPauMtjxB0X9uG+ppM8MnP6VjwgNvKaYhy5xs1b/1Bc+XOVtyzw4gNDqX7V
PSQRTdiU+xw+k21U1aQ52TFftW6gsmh8YfWZDVIRd19UvZKIltHYaoCSRQO/
ge4BnYVVBqhzQw4wGTxeXJQVrTa6LA87qqQ7noDkHlb8EiNo2MdVlwMiIgm2
xcnIe+keZqfnas1df4856cAiQ97jEtPGBa2ug50Rf7ZA3hOHEO6hezyFG8XJ
BMVFbKWtzk2Fjg+JAr8syGNQN0fPPplH7qbb+Con/QbdiQMOYt/dk6bCfVt5
XR5NsTjdQLTTXOGx2BM7LrU6tOf2gPJoVsFeHfqMXj3dQzXMHQkVJwEX8W+R
BXsJrCEbF4OjfohKWpxQuZPuwQTc6VJ+OEly4Ti9lTEDQa53bQxUmC7IZZiI
7cVkByRXvcU82R3WFVFxkPvF/u4ddA8K5kymxImBHGIyiB/MTuKxRXSP64QP
+mlV6ZQkSONkAn7zUu4HhMotYGPJEoM61B5Q0By0uYCUuWX2rG266NPCk1SV
GRMo51Gh3UaXwZ/e253u5qcqaotdY694UKyYbw1cK5K1YyCHRW2BfCFO2t5i
d5YZSWiGGY5KM8D/bwomq0jdHIM6PEBlsTGh847zjUFaZcmVy8x0o15sSo7h
fHDEmxukSlDhdSFnjETUiMuwmeYQUSm9kX+9a9yol0StpOa268lKkpLqUF+b
hBaxEp9Amx3ok/1SpUodVYBeGrUNFpd8OGoWYeErNyGUxWe7OaTlYp4uL5Ym
nMZIU+lwCXtdImA4P3BtSM6Xp3YjS8wZIgb4Mru9f14zbgNaGhR5GT/Zr4gk
nuvdqJdH7d1+6Yg1YNebSsL/5931z8DeOAIBuDlJaIbwbAjMh5Sp09z0Zt3M
dQOOjg/ziUEq+rhUtDgDB4pBHWMPcz4hejWx+fSE8Zt1N7rRDVgd9aJ1c+c8
ykdXqZZVG+f6Zp83L+znhJWvi8w7vm9ePHy1mFyvMr0obPB5bk6vML2Isy1O
viD71picwuxKoTe7Ua+MThc4wIqqnO9ZIW9xQ46LOia7OqubIeXUrWBvTUKN
OCgXBaOjev20sCC7e2y1eH9pvhu4JgrMVkPqpcBQE/NnvQoa77vzjicXuAGv
shsKZSauUTZIByoobUJGWEiAof0UruFc+ymOE/p1UauyPDIbG4d70Rf6gaSf
liDqn11QpaWz7jVpj4+an0WXzVrjpS8cDhUelciAs/wXC5vaQOs4AoXXoDjw
cG2Y6R/66xqgviiJuHtLxZT+alN63ZO4NFMHAHv3yr7lsyekv/3/LL2VAfNw
rNwpEUzwuArTDXyFNG/yy5rFJ8oNJgUuqMfrExOv3hymzS54p0bb+Ccu+EBg
9N+tMGlOttNEYcULP6vr3ekO5inR7PCpPNuJBlJZvFvd5Qae6rZT08IFT6hx
pZbEVlSQRViDQr2bwvSINoID5aUWbfiZbemihTu9u92QM+wKRt0l+5yhFzoL
snglwfuhBikQZ9qBHp02davsOUd0CrC5Lc0v3ONm75qosXxLNLKxCqKqxHno
I/37Nc+4f82LP3IDz7IYy3bi/HtRCr5as+gnYfa/101hdoR19boqKITeO8Vr
KcE7EAWNLbfNf1yMuM9NgQpUdcRcljJZ/XC+3HjON4NErBcaQGZ268pdXqOb
xA2mmo6U9W2yqomOfnQ2XYUKQCREvPA8bstDv8q6Kc0NKPGmi/UI4TlRgdgr
DgytWCkmpaVuMjcGbqody2/81M/cVnJnm4Lp6eDDvqVNOJCNMnWZm+JNgWA4
xPlxSfEyL02UjPd0v246hKaANOpJHCRjAZvDwXdLQOO1USPvR50kn83wu0n8
I2h9NZquIZm0LHSJgBCvBLW4JZsf6NJPXqtxsGlfVeUqcUjXJuGXo1Rxn4bm
4bFXxlz+AA4kY398+/RpW6HaFW4GqMJKY0GM45PH/ADAFNyJxQgkZ9sa/GQs
IZgxx2nPdtHxYP83RoxYjaYYZn+UwqLb2+rmlioScXoM7QbMj36ianr4WjrW
mkrmWr9mjKNnTw9zyC+s7xk9ai3a8PAf7NmgIw7VrnYzS1VDZ14qf9ivdBk8
5PDAsmYENL9/TYTzw06GuOc35b0Utoi8U/W351HjL2y87zmoDQsz5AeYBN2H
tW6maPL9IhIvnA5LGqw+wQjOSMNn/+AzuHd41arVN8/bwe/p89u7VNR0weoX
LgO7Y50FBgCBBAeGcN9b7+aCpj7RJgIMogS843FA5VPc4Ssu4QQAv83ubXKj
is8/6389wzvlfwHDON5Q\
\>"]],

Cell[BoxData[
 FormBox[
  GraphicsBox[{
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1l3dYU2cbxgERKtYBVkU/QQSxVetAwQVyC+5ZoYpirVYURG2xLpxIlaIi
oqJ1Igo4kpwkJDksQUEQCIS9ZwIBB8goQl3g+s54uf/J9V7Jec87nt99Pxnj
sdvVU09HR8dYV0eH/ezV1T/6qjrdBfhtMydYahfub90hgAc33I3pFY+d3PYL
cOY0q4O4svrxqs4/e3/vj8A7bZqX1wUID2MVgPZE50HSwN7fn0bULp0hEQ8E
2L+PVTBEL3Zu9Cnoff4Cigt17+8XCPDgPqtQBIY02P/VJcAtbr7LSLCzTnNv
FOBSKKsrSEHTqK/tvfNfg2vY5HH6HQIc92N1A7l25l7J+kLyvjDE++bf+26Z
EDt3sArH81GBceZuQvL+Ozj2+dIN971CiClWEVgx/njipL+EZD2RmLTW8ccF
pUJERrCKwp2udRdNdERkfXcRd+bcofP6Ily7yuoeblO2NlH2IrLe+0h0UNkv
+1uEkHOsHmCtXcOS3FARWb8AxRMLxvkXiBBwkpUQ6d2D74VVich+RCgYYggz
fQqHD7GisOD3uQbJ5hTZnxhG7ntSNnpS2O3DSgKVa9Bn+ghF9iuFwcGj10+k
UtjGKRoVdpuTfqylyP5lcHPu0zLoGYVJnOSI/LWgoNtUTM5DjvY7qcPpqWL8
wEkBW2upYhQz5s9HAaV/t17/X8Sw4kTDYegi6T++YnJeNLpzQqa52IlhzikG
XiO6ApV7xOT8YpAeF6+zeqEYIzjF4tADA48CdzE5z1hYGoSNDvtJjO84xeGF
7d7iOhcxOd84tGyLnZl4X4zBg1jF46rxxKoBM8TkvOMR2HdO0qiJzDlxSkDA
LXXQPhsx+PJMgFNAvfksAzH6cnqIFUMH/3HUSgzuOk4+hIWf8+ivg8TgaUlE
pEmdj+odBe56/BKx+OQ1ixmtFD72sErE+ubPz2MpCtx1HUrCf2/9ggYnUnj3
llUSdDVJc/3LKHDXt+8RVlqlnb9xl0Lna1aPEG77Zv4ACQXuOn0ew+Tdlq+T
HlBoa2X1GGaamOM7mylw17sjGS4pHR2DfCm8eskqGcaI8EyVUvDi7jsFg/sf
er/iIoVnDaxScP3D3osr83vv/wn2rRt5bBWzvno1qycY5dfq2CWkMJmrh1QM
23DAxDyevH9XKrS0aO4qAUXqIxWdNh/Xfz1J6u1VKpZdbwwKYcbjuXpJw5pg
7fKuexSa2OV5pcFCPVBQcLq3ftJgOXDaqm5vMTzZ5T5PQ75QNfWVTIyxXD09
xXOjD0nzy8RoZJe/5Sl+XmqoZ18kRhRXX08xqfvRykezJPx+6p/iSKi2frmV
BKO5ektHeKqfRc50CTTs9jam44+EUyUz1kqIX6Wjn2tjaaWLBL9sYFSTjpw2
C0thrAQjuXrMgHvs8D8nV0pQVcloXQa+0utPCd5IcJ2rzwzcuu4ZZjBMCre1
jMozsERntmGNvRRDuXrNxKrQlxm0lxSlJYxcM5G44VXj52Apqd9MdE5sW6oJ
l8JlNaOiTJSnjPGf+VpK6lmJjSeWlJuaRKMwn9FKJUI85Jee2kST+lZCHXbe
3dcnGiuWM8pVwiwxhL54I5rUexauNesejcyORk42oyVZ+Hje0+Lpx2jiP1k4
3OZuNZQZL17ESJmFOUr5V+UkGeEhG77tzV9at8qQmc5ofjYCA0dP2hYmI36V
DavZ4QcyK2RwdmKUlg2THurGagM54UWFfuKOdOU4OVJTGDmqEJMXbOflLCf+
psI42+JsR1c55joweqyCT6XkZvF+OT5xPKmwIOCbqAEX5HiUyGh2Di5/+dD8
LlJO/DAH6+yuvCxJlGPWTEYJOVAvfJo79KEc7zneciCzDomaWCNHfCwj21wU
fmvXj2qSE//MBb2numSOngLTpzGic5HweMt3LRMU6OJ4ZL43Ozrv+VwFFDJG
U/Iwp/yw1yBXBfHbPCzY7k7F7FLwvEjzoBLt+3b8YQXaOV7zENNnT9ozkYLn
ZUI+1p//p2RctoL4cz4Er1wuuTYreF6E+RhzKMDxrSnN8/IyHw13z3jpjach
YHGxLsCEvqt+s1hGE74LsMPBobtzG83zcrcAemW7vt+0jya8F8DMo+zfplCa
92OLQph5TdsaFU0T/gsR32Rx7L8Ymvfn24Uo7O+5YaKW5nlRF8JFPfxgn2aa
r78BRXCyM3KKb6WJPxShOTfSUPWW5utxRRGWmcV5ZtfQxC+KcCbBK9qohebr
M7gImbc1js61NPGPItSY9hw4kUrz9ZpThBSH0vtlBTTxkyL4WdG0IIfm6/eb
Yoxee6qiMIsm/lIMyzrDAgdmP1w9Ly7GhfM9cQ3x5Py8itGo35CTL6f5+j5V
DPqLvbHxE5r4TzF+6Uf/2MTsnyv3zGLMdjfaPOIhTfyoGAseGtlOYebPYOu/
Twk2Nkf0jI0l521Vgu33NLObH9E8D84laDiyPKWIWS/vVyV4uSl3/ixmzPFx
ogRT/125YUw1uY+IEmhbrTe7KmnosriklkAgc4seqyH3U1+C/21vPJBSSeMJ
y8+XEjifMJ35byFN/K0UPqWmuu+Z8+J4mluKFZo5k7015P42liIu9mBpPLM+
Fi+HY6XQ2j4aepg5Hz5/S6EKbAiZKqJ53pJK8WLKQlszmiZ+WIorYbXBlvdp
JLH8dZfio3FSR3E4TfyxDIPappqsZZ7neJxVhmy3Flk78zzvl2XYEudgUJFE
g8Vz5sEyyLcoEkwVNPHPMhwx2D7cnOkTOF7jyuDVNeTAjLM08dMyBIe/loWe
ppl9MHpThrYFvz6ZFUQTfy0H/ZuL37X9NM/z9HLUxBQuub6VJn5bDgb8D6O9
abB4T9tbjk7dyZeaPWniv+XIpUwW52yged7l5RijSBvzbgFN/Lgc8ts91/OW
0pCz/HeUoyqyJyPPiSb+XIFgnWc5yT/TvB9MrsCxuBFna21pFHB+XYG+qsEn
zkwgvPxRgU9OTjnpVoSXcxX4fZjN2SwjmvcLcQX8Xsw0WmBOeMmtgMNffvd9
DAgvLRXQtZ7n1qJVEH+vRLv6J+fpFcRPxlcieMgBaWGWAirO7yvhfXle9Ws5
8RfvSkhkVJBdpIL4fyV27x7WFHhKgWaWlweViGmccyXMX0HyoBJ7gtyu3tys
4Hl5UQnDTfihY56C5EMVDKfdyFg6UcHzMrYK+VnnBvUdqCB5UYXsCK3hE8Zf
OV62VuHFmHfjXFrlJD+qoH0ZssImTc77VWQV9CKtv/VNkpM8qcK5WJ9/Lt6S
87xomflGtCfc9unNl2rMW246ZucWOc/L6Gp4rAnfdNOlN2+qoVwq2Hplspzn
ZVM1rrn3K+y07M2fagQp09JzB8h5Xm5Vw9DD8/SnNhnJo2qkbr71daVYxvNS
y8yfbBCasEdG+r1qfDlk0t9rsoznZWQNtKkW9E1jGcmrGuz3dR9Lp0XzvLjX
wGqc4yp7RTTJrxpUr6kX/7cxmuflWg3sn21oOTY2muRZDT5Vrt1ZmCvl++GK
Gvhv0CnxlUhJP1mDF1cTlnfZk/5jaC0GCw/FWOtJSd7VQlswXNxUJ+F5WVML
y1mJgXMDJCT/auG7rcFNf7uE5+VSLRo/OUfrM/0Sn4e1MPUdcW+kuYTnpbgW
l69ePLu0WkzysRax3Xf1VmWIeV4Gq9E13z/PZoeY5KUanseqJXtnkf78JzUc
He21tqPEJD/VcKhp9ctKoXheQtTosA1xtbxD+k+pGvOmmJ7q+IfieclTY/ye
iRf2LaVIvqpRGv+b9YqZFM9Lfw3m7/zfc8qe9KcTNIj/+HFYzwcR+rO4LNPg
md0B2x6b3v9HGlj94KOX+17E83JGA6Mcqs7so4jksQZNHkfutmaS/2tZGrQH
HG0Zxoz5fNbAoDNotolKBBaXRQZ1+HPorSmfI0Q8L9Z1UF+ab3MuVQRDFpeF
dVgTq30gk4tIftch/oTegKgbIp6XgDpc3bdImXZRRPK8Dh7+fRbvthPhbxaX
p3XY/WlCrfdWEcn3OhjlpZ+0Zr7neNGth/KZt7HfXBHJ+3rU+Jw0SVot4vNl
Xj3WvAkZeM9NRPK/Hv13zdFp+0bE58vxevz6fdSZX4eISD9Qj5sGfcLPDSP/
R5PrcTnt2p5brULSH9Qjsk7yu3e4kM+XT/VwNa5bdjhfSPoFLfSfmH448kzI
P2+mhe1yp1NKbyHpH7TY7J4cujeIzOegxfaRUWl9xgtJP6HFudlPKqc5CHke
N2rxclzyuvUqAekvtHjto1u0pr+Q5/OoFvMLrcePUgpIv6GFk0/m4ZtfBDyv
N7Vot1yq750nIP2HFg0xEVVbjQX4P/Nfa5E=
      "]]}, {{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c8Vf8fB3Aro0KRSooS0ZAokeKFrFRWkvSVkhENpYysUqlokS3JvvfY
rlEasomMey4lJbdCS2alFH6f31/38XQePuecz31/Xu/3XeHkae3Cx8PDU8PL
w/P/z9cV/1SDOca6b08GqC+cpuBfeOqZ6YgCbjZIzNr7j0KI5dnFMiObUPv9
sETMJIXLy38ZCowYYv6UVe/iCQpXhDXf/B62gZpYhJXqCIWrgftWjQ87w2RS
TTz+A3HZp50jw2dx9HXJ3f8aKcz1OfPAM84bE+8bm2vqKURozMgP6/pgd9pO
k3V1FOJLFk5+v+mL8d3J8rzVFJgsI+a3tf6gnhz3e/SYQlN+usAnt/PQvKYp
fryArM8peDc0fBkqbvy7WuMoyGcP/i43C8UC9jZp/VgKTy6slgzNDMX5J3LB
pdEURlTSTWQOXMG2fM356ZEU7K/FFprUX8Wt7m/HI69TWK8TdDElKRy25pT/
4/MUju1RlKQUIhC+KPOVqTuFhxXbU8SsIzB7WIs17EZBcI2TytnzERB9r7Y5
3pVCCs99E3RH4Fv30W1DRyh05C0O7Lwdiet9rpb5BynoCs/t5/17B0vF2MLn
bShIPB0rs2fHYNWJcDVXfQpLXBYvr/gbgzMDycdt9cj7iOqGrVgVi4UN25RN
QUHNIezAZ/9YiPyLkN+gQ8FySo7HRyEO2su+qkhsoXBLZ/eOSN94xF0/PyKr
RmFOBeNNw7K7kG1Ni3eQJ/dzbTFca3oXZXo2McEryP3ExvNued2FwAnmstTl
FNYc1L2wt+EuZnQu0F9lKZhNdyh8PJWE2s3POyNkKFzT5Ts5XXMPvnO3XFOS
onDRcf2FJRopKE2bKQoRoZCr5lf/fkcKtFYaLukSptDJXz2XOpiCelaX0AZi
ZebeBM1rKfjaP3amT5BC60ggy+ZNCg57v4l1FKAgfbG571ZIKj5JZ+vcn2HC
wEZqrW1sKuLDNRaLER9f5Xh6WU4qbH71BwRPM1HRNDaV05GKBR1JvUemmHCW
XLLouVIaQvzvyer/ZaIw4+gO/tY08Dz3yDGaYKLbh3W76UMaJuMvqrf8YoJ/
x7/OyIk0sE+tM7Yltv1+22n5inQ0KPMvOPGTib8aDwJ0zqYjyUTPIm+cCQVh
3mqBsHRE15zU0yc27zYTfnEvHZHeFc9ejjGREvwu2r4hHVt1QtwFiY0bZuX7
LsmA9vnHJ/1GmDiVYPFDVzUD1axlLxcTJxxL0BY0zMDZHqmWR8NMDIqrNESf
yEBNvL8HP/EdOxtuUWUG5vX1ujG+M/FkTfKqc50Z0P1ZYWlD3P/v03G9r2T9
9bea+Ii1UgP+tEpmgmmUdtp5kImeL2kSg66ZOPBF9I72N/L/52ar+wRlYtG8
Etmhr0wkiXhZ8URnYjok+XI68X+r9SMWVGXC4AFvjyTxtnJmQfKrTAxUvG5r
/cKEzI55bcpDmZBMLEm6Ttx9tFdURyYLskNr6mYTP/ptrNKgloXv/CtWtHwm
73ctf5eVaRamVrXtiyS2YwZdd/HOwmkXPls54pefZERutWUhuOFYotUnJsp8
LykvHsiCm2NLuzxxjNA3k7R/WZjw1vj4c4AJG6VHV8pWM3BZuzQplXjTgxVZ
enoMKJyXNvQnljQJq2uyZSDcc1mjDTHtaifQe4mB7rlxruLErF/PVronMhCc
bBMy3M9E5BWl7eOFDGhn6p9jE59aeNspqIGBzXcvmJcSW2b9ChF6x8DMkY28
d4k3bD6YGvmDAa9dAZEXicXr6ypl5jCRPfvczDHiob0q3MwV5PPprp37iFv7
o2dUtZi4OyTlbUic7/1P9pE5E4tvjQduJL45y1nX0IWJql/8RxSIj8c0O7QG
kH355qy0iHiX4sYguztMHE3Y2DSHeF1pYtIHJvl79I2dfMRzjPieHH/GxKzu
6zmTfUx87XB/86uTiQftu77+IG5yZk9eIHUgZfJVaJQ4+4fWkjn8FMzPBgsM
E4ddTtkSI02B77c8d4j46ALh/XIbKKzrHkkcITbN8PSjjMm5vM6j8f/1lDe9
itvoQMH6o3v+H2KhWt0HT8+Q3FlpKMRLnmdgT9ZLk3AKWT8yMZu4/qPoL3YK
yQm3zH1SxFlnvKX+e0By6ec+C3niUP6eTQMtFGSD6VVqxM5Rhjan+kgf2rn6
nT6x4crcM5Ok75SJnvK2IVYoloy6PD8bG3rKB48S828PYIkpZ+PfFmnD88TV
Tmaj8nuzoZnmGFVEnDZWNC/vWDZ+FR+93kIcclF6g+bFbNxybD7yjVgv7fPJ
nQXZsOd/U7qO1MdydctbnXXZuK2TqWpJPFP1IM/xbTauxfCHexNXvL8yeEYk
B/xRhdw64r/iY38CZXMgE/N0+Duxlq6D0JWNOagVvJa6iNRvUeJG+XiHHPz7
4vvdk3ioMVk11SsHPHfyriYTr5kQ0cm+mgOfhVW1rcQZe7j7nhTlwE3hntIm
cj7eh+x0qavPgdV2r93uxLKFZV6tb3Jwzl13YQpx3NybN7mzctEz0RYhQc5f
eN2WGgH7XBR82LlmDjm/DeMZ7aKeuWhcb3l0N7GA/Lx3Cy/nQnf20R2RxEHB
A7+V83NRI971YxnJh1OaUet38+XBb1vDiBmpm33UYEJMdh5+vaIDxoeYiH61
j5H8LA+r7jZ8tSD51D6rpoTRkYelSUX/8ojNnBLayqfz0Ne6W8ST5JuujPGs
d9b5uFHwuVaA5KHCzfunVv3Nx0T+5opgkq+HH88OVp1XgMvHmu1+Eid/8b6u
pViAAMvqmBMkjxcZ78oysyiAJJ36y4nk9+yZ329Ophcglp1kffgPE35aVPob
xUIIVOe45JL898r/HquvVojS7fMsd5D+cExBPZyxrRChfXcVPhMfnPf41Jk9
hTja9Oz6Wh4Khp9f6MwJKcTf+i0Wz/koiMePvNJ+W4j37PcRh0i/EhbTaE75
VAj6oMK8paS/8V0+VyE4Xogg3jTf18Q/PPkyaZEiSHs/nd4/h0K3yQIvD80i
BJnYfzktRs7BhObcxDtFqOMzFJ1aQOaDE4EzM/eKINH+Zeol6Z8JHyvHXKgi
ONrqdLAWUrjRtuO1WmURmOs3qZ1aTOE040DW8+9FsN26jsG7lMK2fef1/piy
EI7b+86vpMApqz9rN8NCTqDfzr6NFLg5AxvCZhfD/mPL2Z+bKAymCH4vlypG
Sv/VY8KbKQhcN3aRWVeMgnPrKzdqUdjkWL/3nV0xvkUZz9zfRiFWqH6zM6sY
aq+rEluNyHxkV/fb06UEDDp8/8X9FFx395eknCpBdQid/cKegpfBrNPsgBKo
Pw+vXPwfhevrjL6o3ymB6kJhrTIy7zzhqXv9s6IE2tbq5oLOFJZRtY8CFpci
qdGsZfIked4/NYFXm0uR20sz1a9QkKnoL5joLMX2kuU9iVcp2F4U+ujGJdeH
bCMFwig0z965w/RnKdYIaPu9JfNamQwtJSJXhvdfRjYnk3nupg43P9yrDN2V
J1Xd71HQDvnHvSn9AEOHuIVLyijECGsYRbs9RJO13INX3yhk5/T39Xs9xHLH
GN+a7xQqzWMvawY/RMXT7t7CYbJ/0RM13dEPsWCqIDNinNTLikcGK6ofQnri
+MSRvxTGt0Avf2k5BGPva+2fkw2rYzu2NrLL0bJfT89/XTZEWx3U/m19jPpt
DXO8z2RjveNkjz73Kbjm1ndeC+Xggv1jbtLWStxf4Z5wIicHTYf2OhunV6F9
a8WTDSdz8WXX6sZ3Y9UIC5Is4lXLg/uC108zDtYibOTvvHti+TCo+N1aU1OH
dPZMXcJQPoZ3W1ey5zWg2POC2dGqAkw9vLpd1L8Rfo1nVEasCsEVmcjSbH4O
g+kNZekPC6Gw2SDptlYzlhfrPg+UL0KV4VSu3v0XiP+ZYP38YhHUt4zd435v
wbfzl2mhjiKcDpziXB9vgWPi05A9nUUofCY8W/NPC2p3wTf5ZRFUjeV8bgq0
4mLfjo3qr4uwbs8uc22ZVrQw6z5Yvisic27WdJRpK/R37n/k8bkIMqn2jibp
rcgcdFcV/VcEAZGa5fl2bWC69In8XM5C90YLiT8ObeDlX6zybwULRQff8Bse
acP99iuxfCtZOFgyPvD6RBu2L2jSFlVkodxRIW/WpTZwA949k17Nwsmy0C0O
eW2oaY0/K67GwqCawmpB3nZ03TDce0yPhX0mX1Nz+NsRMb88zV6fher/CpdY
CbbjYpLbuh0GLCRc3TY3aU473rRjfKUhC8Y9NsNqC9txYfcl43YTFlKvhZY6
rG2HdbxGFb8FC7a9A/qle9sxL4OHt+M/Fq50fDy+264d/Sms+VkOLJQ958b1
27fD7Juzg+9BFhaWdH+XOtQO90XVGYsOsfDyWmuCj0c7JGJUB82PkPXUy0Y1
z7djvQW/Yrw7cWho6iNmO5o4rhejvMn6/hdfWOe048lUt88uH7K+5/mJr3nt
sFU5mSzgS9a3P7dbprgdfrP4r3j5kfXXn/gT8LQdkZPHCg0DyHpdNlY6dDtG
2yVRfYF4rQJv5V+y3jKf0uXXWdDpMrwaMd2OQyPb5rUQK4S6iB7mZePRsYjT
fjdYGH2XJc0nxIafdpvxi5ss3LizWt1Qgo3vo/s3HY0g+/ln/ZFGZTb2Bs79
cCqGBSrL4kv8WjZO8kZfEY1lIWLPKU/39WzS9+6oUMQOeUUBszex8eHU75Ce
OBZ+H9oUvQtsNAvd19FOZGF945a69r1sDO7501STzIKUt/3OVDs2TAWV/C3v
s/BvRQD79AE2EpX5ld8SPw940iNxmA1bp97gkRQWnFXxy+Y4G8rB/RKi6Swk
xhoqvb7IhuINmXQpBgtCLhZh7wvYuB2pMuiUz8Kj0A3fQ1hsCD099rKB+HjW
fCv5UjaKtNu61xaw0P6Js/jIIzYGijzURokTPeyYfbVsqNVWzj9dRJ731OGG
T6/ZqBSTCzYqYYEbYbD22ls2kmImf98ljipaeVu5l41nRdT1UeLfY/227n3k
/Wp/TSSUslDl7THwdYiNPvaVz71lLNgEnJk1xE8j9+/yuXrlLAgm2bjfEqTJ
PLrnx1Xi8icaLetFaFxfYzzWSiw7PRHtKUYjwWt0vf0jFj5fCFQYXUxj3V4h
pstj8rypDtciZWjc8e3XziLeXa07qCZLY6vLnQ/9xCx+3hKvlTRcA/s8nZ6w
EHAldPsPFRpBN8zOWz4l78dwZURvoPFkW3BpGDG3wWSOxkbib8kzVcSGIrM5
3lo0fFdsbVOtYEHsxi2nCQMajMkJO55nLFTmetbHGdF4OZS9Vp34TIvlGi1T
Go+Xn5t/hLhLTHLMbzeNpYr8C6uJ0yLjQib30fipIMfjXcnCHI8kPY49jSgR
pcE04rMGqTM5DjTuJQlUtRGbjGcHORyhwf+mWWFVFQuFzQXbNrvSKBgMKLYg
XpJR8lfMncalc7fW+BEP2lScqzxJY2HOMXYd8V6VGq2E0zSOXJrh+UZcMatx
4vRZGmK61xaLV5P6LWN7r/Sn8fye2MweYo3F/aevhNKwviHLaCdOHvmywfEa
DZtrVyS/Ews/HxrWvE5jiYS0m3ANybdzv098iaDB2etYs5V4u/XUuuooGvNL
+5r3EOeu4RtMjKVRNaj52IM4+M0cj11JNN5JDO+OIf5UPG+14n0aVv5Ko0xi
yxtSn6dSafyX+9L/MfEj5yWMlxk0RBs/fX1BvFJHzrWAQUPBxFi/h/iGlILi
tWya1ElP0CDxr+/KfYfyaBgtvZsySexYr5K+pZBG8VoPSqiWhcZkdSeJYlIP
87XiJYnVfDVXfCulYSg6dlyWONFiG7fmIY3Vj0KVlIkFlPXvJz2mMS76vmED
8Qke44PeFaQ+94/t1iJ+2WW2zLyKxrAps1yXWK/I4u2qWhrbPo7ONiSmwmzu
ztTTeBpeoW9KLOG0377rOY2hf1MOO4kDtA9KF72gcdM6xXE3cZ/Eka6wNhrJ
MzHG5sS7v7nFOdE0/DltEv93Wc1x262dNDp/69buIpZLOi21oItG088OezPi
a2d9Oga7afTlXHppTDy2KyCqrofGKjsdTQPiA4oXrJO5NBZF/QjcRlw7dXm+
70cajZZJDA3i9S/D2i0GaPRylR6oEMfl37qt/IVGylB4jgIxz9Uoc95BUr8X
yi8vIXZ3jBftHqJxbpJhIE5Ma957wRqlESi9s5+POONzlpnzBA3JuZe7Bsj3
IVqVI6IzSc6v0qzVr4h9EgobpaZovPeZf7CeeIfZI+MGPg7SNLK8U4lZ8s9m
pcziQKd5qd1N4qV/a2r9hMn1D5OyfsRDOS0Ga8Q4KH3Vst/s/9edRUp+zuNA
UnfCQJ3YbKmRYpUkB/UTeUukibNuPBGyk+aQeTs75iOp5w7D334rl3Iwbduv
1UDMN7Xx65AsB1qmsU0UscOJnBehChyc+2VSfow4XPGTjpUSB4b9WLiT+GGP
fMHSNRx8iko6vJp4gXliZLEqB+7bfWo+kPP2Yn2Y7XttDiw2/ldsSjw5UNuQ
q8NBxLzVl+SIle/zbPHT4yAs3ET/Jznvl8X9ZMSNOWiS97l2j3jriCt3mxUH
v21iDd6T/MguMvSId+OgK5DrqkHyqMv9wpsjHhwss5Ne+pfklaD8k12qJzjo
5at49ozY6c5G1XovDkSkHWgjYukz8j/Ggzj4cjhU0Yjk4bVNPMEW0Rw4LVcP
m0fytWxw6/CSOA7yJXiU60j+9mX4HhpI4CBaNbvUj1hPatgg6D4HQc2P7r19
yMLEzx6hnGwOXtybSI17wILrg8eRglUcaITsDO0m/eDQxwfc1BoOHMTL910m
3i9eoqpTz8HIsLqOCvEut9yWM80c/HML0g8sZkF90T2R950cXHryaoM4i4Vp
n+CQx185aEh/USZM+tPvNP922+8cJC04UJlO+tloq4/c2DDZz9PdPTrEfas8
nyr/5CBAYMjGM4+FppeOf2JmOFBxM9JoyCH1vFn/9KkFHTg436vVjEnyz0mn
cs6iDmzi2Mi9Iv0z/NYWcYZ0B4JczUOdiIMH1PJ6ZDuQ7NIV4ZNF+m+s/Bez
1R0oro1lRmWwsOEX/2FF3Q6UF84eSiX9ubG03rLbrQMK01F+4vEs+CUMTOZ5
dMCxcbu1F5kHlIMEM0NOdOAYvVOmg8wLYYbGf5TPdKBi/0RANJkvzDh1qb7B
Hahn0QHCUSy0jNSOLYjpwNuGM3FPyXxCr62JtqjuwPaeM44OF1m4KP5Rd2Vd
B6Kt2KeTQ8j+jfN9+dVATNX7vSPzUNQjA53klg6IaGm5HDhP+u+O6v7Brg5s
Dr/81DSQ5Jdr1ebw4Q4IWVjFjZJ57E3qs67apZ0oaNE5GHSUzFN/7h86KteJ
V0s9bHLdyP0tL3yeI9+J/Ji9bt2uZH9n9H5bK3WiZv7qvo0uJK8dqhe9V+vE
n0kRvD1M8lS6znbKuBMvo55n8B1gwT6yqUPjdCdmpR2MZewi9Xuhsz2rrhPf
7L8uOqjCwuKHg7N1Gjtxe5aK1IF1pF6G+Y04TZ2gtY8b7VtL+o2DevlMWyde
/GrHbjIf92jfTrXr7sStbZ1pqmR+/vDD1Gv2cCfCOHf2tS4l/fDoE8mTi1+C
ZfFbw3sOC7xW6bYax15CXMHAynegCG/EHDO7ZV8heA9/tMGNItx/punsW/8K
K474fxZUKcKCg9Pf1gR24Waa44YrjwtxZvj9x07F11Bn5KjX7CjE9Okgd5UX
r/FX+JFBPlUA7Q+CD+9e6AZNbzYJyMjHIaM8H97Vb2DINM8Rys+DZqz+dFDv
G3iF3Fy6PDMX2l03JRl33iLfUyPYmZkDJdGJ+IYtPWDyOn1+0JCNOlXzT9ND
PRhstqbG+ijsNqrOVIl/h7chT++oK5Lf87uGRoV1e6GSxrP40nkmOooNHnXp
9UJ7x8pLXwKZyJSJu8jc3osHg5+fW/kzYfoNkqY7euH+cc6QkjcTt8IjN121
6UWy3P7srx5MyDzf5DvrWC/yR69WNNkysck44B9vfC8YK4uj/qoyIZjfVstO
7IW0hrPafRUmXkkp3Ey914tpf9kGw7VM+Pe/WKaf3ouTBlLvYlYxUXVZFhfy
e6HgWM62WMaEeU1VyHRtL4LFDlxfOYcJNz1hob+jvSi8US1g+ZkBgaXL8hJ/
9CKuXNfYboCBtAm1PdoTvdB7v32vUx8Db/MP3D/3rxchuiffBXAZYN56JRPI
z4Vm/ov82i4Glk2tKZkU5WKLpyed95wBoW5234Q8F3yLtJw+5DLw0uTtAxMF
LiiXvZcVcxjIKB0Ij1PkwvHd1qseFAMGkX83aCpzMfMqR20yk4FAU8UgHxUu
mkRHlTfcZ2C0zE/qpyYXwbO2yE5EMvAmSs54bBcXfk2VYz/8GHg4mKjkbs7F
tFXpM1NfBmKNFopwLbgwj3X+k+zNgOXE3Bct1ly8bawttfZioNZ+0oqy44Je
I+366hgDuSs6HQ45cyG28bWurSMDYf6WeOXChZzbgTVsBwZcOc3Lzd246Gi9
cNP8PwaWh1Z/3OrBxcI/1k8t9zMQ/bnAfdEpLtRVNDu99jAQVBDu3RrAxcWZ
Q2fXmzJgLyy4zyiIi9G13FVsYwa0DodoPQkm99NecsDHiIExCb+/VAgXduNK
OxsNyP18XEJCr3Lx5vt++3AdBsx19G5uiyLP4/n6wdWNDKyNfXyyOJqLzuD4
F9bqDAgPb7ZcE8uF6cq9x5erMVCdoiK5OIELn32T5jXrGdgsIJMwnszFgiVr
C5XWMCDpEOvvkcJFpbvkOqHVDIyUzv/vfSoXkzd2aH5RYiDbTViuLYMLQe0H
UyWKDFytvMRjnMXFvNjf5ckKDDhLz7x/wuAi0/2u0PWV5Pvz8q/ZSHEhc07+
0zl5BuSaf2ZkZ3PRlyu+/9gKBv4HcaIWtg==
       "]]}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   PlotRange->Automatic,
   PlotRangeClipping->True], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.515861667968692*^9, 3.51586170290769*^9, 3.5158617415819025`*^9, 
   3.5158617725916758`*^9, 3.5158619641406317`*^9, 3.515940248522266*^9, 
   3.5159403028083706`*^9, 3.515940353464268*^9, 3.5159715674547653`*^9, 
   3.5159716028257885`*^9, 3.51597279173079*^9, 3.5159870313112473`*^9, 
   3.5159873992372913`*^9, {3.5167131075193415`*^9, 3.5167131241342916`*^9}, 
   3.516714076720356*^9, 3.516720444136749*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["HumanParameters"], "Input",
 CellChangeTimes->{{3.5158621768537984`*^9, 3.5158621795649533`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
   "1.19689396035823`", ",", "0.2021466874659094`", ",", "7.840374588741147`",
     ",", "0.22483245436904045`", ",", 
    RowBox[{"-", "0.8069757285872388`"}], ",", "0.18712786224886768`", ",", 
    RowBox[{"-", "0.08282590437631529`"}], ",", "13.315981803707265`", ",", 
    "0.20729365656915424`", ",", "4.154819403051306`", ",", 
    "0.2573791697685864`", ",", 
    RowBox[{"-", "0.3808535485970228`"}], ",", 
    RowBox[{"-", "10.979481912107921`"}], ",", 
    RowBox[{"-", "0.19665480379455522`"}], ",", 
    RowBox[{"-", "0.42141500655251124`"}], ",", "0.6584527300961083`", ",", 
    RowBox[{"-", "0.00930399115389918`"}], ",", 
    RowBox[{"-", "12.82168487791859`"}], ",", "0.006115153444975309`", ",", 
    RowBox[{"-", "0.5923132540804102`"}], ",", "0.06007064478480575`"}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{
  3.5158621799079733`*^9, 3.5159402502963676`*^9, 3.5159403030483847`*^9, 
   3.51594035367128*^9, {3.5159715970714593`*^9, 3.515971602995798*^9}, 
   3.515972791939802*^9, 3.5159870315422606`*^9, 3.515987399473305*^9, 
   3.5167131341028624`*^9, 3.5167140770583754`*^9, 3.516720444189752*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["HumanFit"], "Input",
 CellChangeTimes->{{3.5158621805880117`*^9, 3.5158621817290773`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"1", ",", "1"}], ")"}], "\[Rule]", "1.19689396035823`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "1"}], ")"}], "\[Rule]", "0.2021466874659094`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "2"}], ")"}], "\[Rule]", "7.840374588741147`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "3"}], ")"}], "\[Rule]", "0.22483245436904045`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.8069757285872388`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"2", ",", "5"}], ")"}], "\[Rule]", "0.18712786224886768`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.08282590437631529`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "2"}], ")"}], "\[Rule]", "13.315981803707265`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "3"}], ")"}], "\[Rule]", "0.20729365656915424`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "4"}], ")"}], "\[Rule]", "4.154819403051306`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"3", ",", "5"}], ")"}], "\[Rule]", "0.2573791697685864`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.3808535485970228`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "10.979481912107921`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "3"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.19665480379455522`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.42141500655251124`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"4", ",", "5"}], ")"}], "\[Rule]", "0.6584527300961083`"}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "1"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.00930399115389918`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "2"}], ")"}], "\[Rule]", 
     RowBox[{"-", "12.82168487791859`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "3"}], ")"}], "\[Rule]", "0.006115153444975309`"}], 
    ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "4"}], ")"}], "\[Rule]", 
     RowBox[{"-", "0.5923132540804102`"}]}], ",", 
    RowBox[{
     RowBox[{"a", "(", 
      RowBox[{"5", ",", "5"}], ")"}], "\[Rule]", "0.06007064478480575`"}]}], 
   "}"}], TraditionalForm]], "Output",
 CellChangeTimes->{3.5158621821521015`*^9, 3.515940250375372*^9, 
  3.515940303068386*^9, 3.5159403536962814`*^9, 3.5159716030207996`*^9, 
  3.5159727919638033`*^9, 3.5159870315662622`*^9, 3.5159873995003066`*^9, 
  3.5167131357099543`*^9, 3.5167140770803766`*^9, 3.5167204442917576`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Aout", " ", "=", " ", 
  RowBox[{
   RowBox[{"A", "/.", "HumanFit"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "3"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "4"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"1", ",", "5"}], "]"}], "\[Rule]", " ", "0"}], ",", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"2", ",", "5"}], "]"}], "\[Rule]", " ", "0"}]}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.515862186585355*^9, 3.5158622015152087`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.19689396035823`", "0", "0", "0", "0"},
     {"0.2021466874659094`", "7.840374588741147`", "0.22483245436904045`", 
      RowBox[{"-", "0.8069757285872388`"}], "0.18712786224886768`"},
     {
      RowBox[{"-", "0.08282590437631529`"}], "13.315981803707265`", 
      "0.20729365656915424`", "4.154819403051306`", "0.2573791697685864`"},
     {
      RowBox[{"-", "0.3808535485970228`"}], 
      RowBox[{"-", "10.979481912107921`"}], 
      RowBox[{"-", "0.19665480379455522`"}], 
      RowBox[{"-", "0.42141500655251124`"}], "0.6584527300961083`"},
     {
      RowBox[{"-", "0.00930399115389918`"}], 
      RowBox[{"-", "12.82168487791859`"}], "0.006115153444975309`", 
      RowBox[{"-", "0.5923132540804102`"}], "0.06007064478480575`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.5158621894385185`*^9, 3.5158622022592516`*^9}, 
   3.51594025068639*^9, 3.5159403030883865`*^9, 3.515940353719283*^9, 
   3.515971603045801*^9, 3.515972791988805*^9, 3.5159870316112647`*^9, 
   3.5159873995563097`*^9, 3.5167131413982797`*^9, 3.516714077104378*^9, 
   3.51672044433076*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<Afit.mat\>\"", ",", 
    RowBox[{"\"\<a0\>\"", "\[Rule]", "Aout"}], ",", "\"\<LabeledData\>\""}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.515862231765939*^9, 3.5158622331000156`*^9}, {
  3.515940346451867*^9, 3.515940346730883*^9}, {3.516720434691209*^9, 
  3.516720457428509*^9}}]
}, Open  ]]
},
WindowSize->{1664, 915},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (November 7, 2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 350, 6, 71, "Section"],
Cell[CellGroupData[{
Cell[942, 32, 2395, 53, 312, "Input"],
Cell[3340, 87, 1105, 18, 30, "Output"],
Cell[4448, 107, 1105, 18, 30, "Output"],
Cell[5556, 127, 1105, 18, 30, "Output"],
Cell[6664, 147, 1105, 18, 30, "Output"],
Cell[7772, 167, 1103, 18, 30, "Output"],
Cell[8878, 187, 1103, 18, 30, "Output"],
Cell[9984, 207, 1103, 18, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11124, 230, 361, 10, 31, "Input"],
Cell[11488, 242, 2273, 71, 97, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13798, 318, 13726, 353, 1113, "Input"],
Cell[27527, 673, 848, 20, 30, "Output"],
Cell[28378, 695, 852, 20, 30, "Output"],
Cell[29233, 717, 852, 20, 30, "Output"],
Cell[30088, 739, 623, 13, 30, "Output"],
Cell[30714, 754, 1138, 28, 30, "Output"],
Cell[31855, 784, 1136, 28, 30, "Output"],
Cell[32994, 814, 1195, 30, 30, "Output"],
Cell[34192, 846, 1182, 30, 30, "Output"],
Cell[35377, 878, 6833, 117, 241, "Output"],
Cell[42213, 997, 12086, 204, 228, "Output"],
Cell[54302, 1203, 12991, 219, 229, "Output"],
Cell[67296, 1424, 18039, 303, 241, 10691, 181, "CachedBoxData", "BoxData", \
"Output"],
Cell[85338, 1729, 14153, 237, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99528, 1971, 111, 1, 31, "Input"],
Cell[99642, 1974, 1193, 22, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100872, 2001, 104, 1, 31, "Input"],
Cell[100979, 2004, 3047, 84, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104063, 2093, 755, 22, 31, "Input"],
Cell[104821, 2117, 1580, 34, 97, "Output"]
}, Open  ]],
Cell[106416, 2154, 486, 12, 52, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
